Помогите, пожалуйста(Составить программу определения меньшей из 2-ух величин X и Y,

Program prog;
uses crt;

var a, b, x, y : real;

begin
clrscr;

write('A = ');
readln(a);
write('B = ');
readln(b);

x:=2*sqr(a);
y:=3*b;

writeln;
writeln ('X = ', x:0:3, '   Y = ', y:0:3);

if (xgt;y) then writeln('Min = ', y);
if (xlt;y) then writeln('Min = ', x);
if (x=y) then writeln('X = Y');
end.