Заменить максимальный элемент на номер первого нулевого элемента массива. - PascalABC.NET

{Заменить максимальный элемент на номер первого нулевого элемента массива.}
const
  n=20;
var
  zero,max,i:integer;
  a:array [1..n] of integer;
begin
  randomize;
  max:=1;
  for i:=1 to n do
    begin
      a[i]:=-n div 2 + random(n);
      write(a[i]:4);
      if a[i]>a[max] then
        max:=i
    end;
  writeln;
  writeln('Max: ',a[max]);
  zero:=0;
  for i:=1 to n do
    if a[i]=0 then
      begin
        zero:=i;
        break;
      end;
  if zero<>0 then
    begin
      writeln('Номер первого нулевого элемента массива: ',zero);
      a[max]:=zero;
      for i:=1 to n do
        write(a[i]:4);
    end
  else
    begin
      writeln('Нет 0 в массиве.');
      readln;
      exit;
    end;
  readln;
end.