Найти max элемент массива B(N)

var mas:array [1..100] of Integer;
    i,n,max,min:Integer;
begin
  Randomize;
  write(Enter size of array = );Readln(n);// просим указать количество чисел в массиве
  Write(Array = );//вывод всех чисел
  for i:=1 to n do //процесс генерации
    begin
      mas[i]:=Random(50);
      if (1=i) then begin max:=mas[i];min:=mas[i];end;
      if (maxlt;mas[i]) then max:=mas[i];
      write(mas[i], );
    end;
    writeln;
  Writeln(MAX = ,max);//выводится наибольшее число в массиве
  readln;
end.