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

uses crt;

type
  rac = record
    p, q: integer;
  end;

function ravno(a, b: rac): boolean;
begin
  ravno := a.p * b.q = a.q * b.p;
end;

var
  n, m: rac;

begin
  clrscr;
  writeln('Введите числитель и знаменатель первого числа:');
  readln(m.p, m.q);
  writeln('Введите числитель и знаменатель второго числа:');
  readln(n.p, n.q);
  if ravno(m, n) then
    write('Числа равны')
  else
    write('Числа не равны');
  readln

end.