Составить программу определяющую максимальный из всех чисел с клавиатуры. Признак конца ввода- число 0. Организовать цикл выхода из программы при вводе 999 — Pascal(Паскаль)

const maxn = 1000;
 
type TMas = array[1..maxn] of real;
 
var mas: TMas; i,j : integer; max, a: real;
 
begin
  i := 1;
  a := 1;
  writeln('Введите элементы массива: ');
  while a <> 0 do
  begin
   readln(a);
   mas[i] := a;
   inc(i)
  end;
 max := -maxint;
 for j := 1 to i do
  if mas[j] > max then max := mas[j];
 writeln('Максимальный элемент - ', max:3:2);
 readln
 
end.