Program Nilai Max

program nilaimax;
uses wincrt;
var i,n,s,x: integer;

begin
write ('masukkan sejumlah data:');
readln(n);
for i:=1 to n do
   begin
   write('data ',i,'=');
   readln(x);
   if i=1 then s:=x
   else
      if x>s then s:=x
   end;
writeln('nilai maximum:',s);
end.