Теперь понял свои ошибки. Ребята и еще одна задача.

[ManCOM]

Программа вводит 2 рациональных числа (числитель, знаменатель) и с помощью функции Ravno (a,b) сравнивает эти числа (равны или не равны).

[Mad_Cat]

function ravno(a,b:real):boolean;
begin
ravno:=(a=b);
end.

[evg_m]

type ratioanal =record ch, zn: integer;
function eqv(a,b: rational): boolean;
begin
result:=( ( (a.ch div b.ch)=(a.zn div b.zn) ) 
     and (a.ch mod b.ch =0 ) 
     and (a.zn mod b.zn =0) )
 or ( ( (b.ch div a.ch)=(b.zn div a.zn) ) 
     and (b.ch mod a.ch =0 ) 
     and (b.zn mod a.zn =0)  );
end;