Я бы сделал так....
program p_1;
var a,b: real;
begin
writeln ('Vvedite 1-oe');
read (a);
writeln ('Vvedite 2-oe');
read (b);
if (a>b) then
begin writeln ( ' 1-oe bolshe (',a,')' );
end;
if (abegin
writeln ( ' 1-oe menshee. Bolshe vtoroe (',b,')' );
end;
if a=b then
begin
writeln ('oni ravni');
end;
end.