Введите с клавиатуры 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.

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