Найти 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 (max<mas[i]) then max:=mas[i];      write(mas[i],\' \');    end;    writeln;  Writeln(\'MAX = \',max);//выводится максимальное число в массиве  readln;end.