Действия с простыми дробями

[Oda33]

сложить,вычесть,умножить,разделить две дроби,знаменатели и числители с клавиатуры,используя нод и нок. Помогите пожалуйста с решением

[evg_m]

type Trational=record up, down: integer;

function Add(a,b: TRational): Trational;
var
   r: integer;
begin
  result.down:=НОК(a.down, b.down);
  result.up:=a.up * (result.down div a.down) + (b.up * (result.down div b.down);
  r:=НОД(result.up, result.down);
  if r>1 then vegin
    result.up:=result.up div r;
    result.down:=result.down div r;
  end;
end;