Вводится последоватльность из n целых чисел, найти максимальное среди них

uses crt;
var a:array [1..100] of integer;
i,max,n:integer;
 
 
begin
   Write('Max êîë-âî ÷èñåë äî 100*  = ');readln(n);
   For i:=1 to n do
   begin
   Write('Ââåäèòå ',i,'-å ÷èñëî: ');readln(a[i]);
   end;
   max:=a[1];
   For i:=1 to n do
   if a[i]>max then max:=a[i];
   Writeln;
   Writeln('Ìàêñèìàëüíî ÷èñëî - ',max);
end.

Program maximum;
Var
n,i,s,max:integer;
Begin
writeln('vvedite n');
readln(n);
i:=0; {обнуляем счетчик элементов]
max:=0; {за максимум изначально принимаем ноль}
repeat
read(s);
         if s>max then
         max:=s;
i:=i+1;
until i=n;
writeln(max',maximalnyi element');
End.

   uses crt;
   var max,i,a,n:integer;
   begin
   write('Введите количество чисел ');
   readln(n);
   write('Введите число ') ;
   readln(a);
   max:=a;
   for i:=1 to n-1 do
       begin
       write('Введите число ') ;
       readln(a);
       if a>max then
       max:=a;
   end;
   writeln('Максимальное ',max);
   readkey
   end.