Составить программку которая вводит два числа и печатает какое из их

Var a,b:real;
begin
writeln('Vvedite znachenie peremennoy a= ');
readln(a);
writeln('Vvedite znachenie peremennoy b= ');
readln(b);
if agt;b then writeln('chislo ' ,a, ' bolche');
if alt;b then writeln('chislo ' ,b, ' bolche');
if a=b then writeln('chisla ravny');
readln;
end.