Введите с клавиатуры 4 числа. вывести на экран номер наибольшего числа. это по паскалю.

Program z1;
var a, b, c, d, max: integer;

begin

writeln('Введите 4 числа');
reag(a,b,c,d);
     if a>b then max:=a
                else max:=b;
     if c>max then max:=c
           else max:=max+0;     {чтоб max не изменилось}
     if d>max then max:=d
           else max:=max+0;      {тож самое - без изменений}
writeln('Максимальное число', max);
end.