напишу строки, которые изменились
y, a, b, c, d : integer;
...
writeln('ввод a b c d') ;
readln(a, b, c, d) ;
if (d>y) then y:=d;
