Написать программу которая сопоставляет два значения введенных с клавиатуры ,если 1

Program chisla;
Uses CRT;
Var a, b, c : real;
Begin
CLRSCR;
Write ( vvedite znachenie pervogo chisla a= );
Readln (a);
Write ( vvedite znachenie vtorogo chisla b= );
Readln (b);
If a gt; b then
Begin
c:= a+b;
Writeln ( chislo a boljshe chisla b i a+b= , c:10:2);
End;
If a lt;= b then
Begin
c:=a*b;
Writeln ( chislo b boljshe chisla a i a*b= , c:10:2 );
End;
Repeat until keypressed;
End.