Настя, упр.1, мах число массива, этот верен

 program ex1; {написано для программной среды Turbo Pascal, работает. Отправлено 2 раз. Был автоматический перевод английских слов.}

 var
   mas:array [0..7] of integer;
   i: integer;
   function max_mas(mas:array of integer): integer;
   var
    max, j: integer;
   begin
    j:=0;
    max := mas[0];
    while j<7 do
      begin
        if (mas[j] > max) then
        max:= mas[j];
        j:=j+1;
      end;
    max_mas := max
   end;

 begin
  writeln(' Vvedite 7 chisel');
  i:=0;
  while i<7 do
    begin
      readln (mas[i]);
      i:= i+1
    end;

  writeln ('maxsimalnoe chislo ',max_mas(mas)); {при попытке запустить на PascalABC в этом месте выдаёот ошибку}
  readln
 end.