Написать программку в PascalВывести на экран наивеличайшее из трех чисел

Program p_1;
Uses Crt;
var 
n1,n2,n3, max: integer;
begin
write('Введите 1 число: ');
readln(n1);
write('Введите 2 число: ');
readln(n2);
write('Введите 3 число: ');
readln(n3);
max:=n1;
if n1lt;n2 then
max:=n2;
if n3gt;n2 then
max:=n3;
writeln('Наибольшее число: ',max);
readln;
end.

Programm pr2; 
var a,b,c:real; 
begin 
read(a,b,c); 
if (agt;b) and (agt;c) then writeln (a) else if (bgt;a) and (bgt;c) then writeln(b) else writeln(c); 
end.