Напишите программку , которая в последовательности 10-ти естественных чисел определяет

Program primer;var,     n,i,max,z:integer;begin      max:=0;      for i:=1 to 10 do begin            read(n);            if(n mod 10 = 4) then begin                  inc(z);                  if(maxlt;n) then max:=n;            end;      end;      if(zgt;0) then writeln(max)            else writeln('NO');end.

Program primer;
var   
   n,i,max,z:integer;
begin   
   max:=0;   
   for i:=1 to 10 do begin     
      read(n);     
      if(n mod 10 = 4) then begin         
         inc(z);         
         if(maxlt;n) then max:=n;     
      end;   
   end;   
   if(zgt;0) then writeln(max)     
      else writeln('NO');
end.