Написать функцию, которая сравнивает два целых числа и возвращает результат сравнения в виде знака: > , < или = pascal abc

Function Compare(a,b:integer):char;
begin
  if a<b then Compare:='<'
  else if a=b then Compare:='='
  else Compare:='>'
end;

var
  x,y:integer;
begin
  Write('Введите два числа через пробел: ');
  Readln(x,y);
  Writeln(x,Compare(x,y),y)
end.