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

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

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 n1<n2 then
max:=n2;
if n3>n2 then
max:=n3;
writeln('Наибольшее число: ',max);
readln;
end.