Определить максимальное среди трех чисел (оператор условий) — Pascal(Паскаль)

 var a1,a2,a3,max:integer;
 begin
 readln(a1,a2,a3);
 max:=a1;
 
  if a2<max
    then max:=a2;
  if a3<max
    then max:=a3;
    writeln(max);
      readln;
      end.

program uslovie; 
var 
  a,b,c:real; 
Begin 
  write ('pervoe cislo '); 
  readln(a); 
  write ('vtoroe cislo '); 
  readln (b); 
  write ('tretie cislo '); 
  readln (c); 
  write ('maximalnoe cislo ');
  if (a<b) and (c<b) 
  then writeln (b:12:7) 
  else if a<c then writeln (c:12:7) 
  else writeln (a:12:7); 
  writeln ('nagmite Enter'); 
  readln 
end.