Найдите ошибку в коде

uses
  crt;
type
  tAr = array[1..255] of integer;
  
procedure vvod_arr(var ar: tAr; var n: integer);
var
  f1,f2:text;
  i: integer;
begin
  assign(f1,'in.txt');
  reset(f1);
  assign(f2,'out.txt');
  rewrite(f2);
  readln(f1,n);
end;
procedure obrabotka(var ar: tAr; var n: integer);
var
  f1,f2:text;
  i, firstZeroPos, lastZeroPos: integer;
begin
  writeln(' ');
  writeln('[+] Ноль найден ');
  firstZeroPos := -1;
  lastZeroPos := -1;
  for i := 1 to n do
  begin
    if(firstZeroPos = -1) and (ar[i] = 0) then begin
      firstZeroPos := i;
      continue;
    end;
    if(ar[i]= 0) then lastZeroPos:=i;
  end;
  if(firstZeroPos <> -1) and (lastZeroPos <> -1) then begin
    writeln('[+] Ноль найден: ');
    writeln('    [!] Первый ноль в: ',firstZeroPos); {порядковый номер массива}
    writeln('    [!] последний ноль в:  ',lastZeroPos); {порядковый номер массива}
    writeln('    [!] Массив между нулем :');
    for i := firstZeroPos to lastZeroPos do
    begin
      write(' ',ar[i]);
      write(f2,ar[i],' ');
    end;
  end
    else
  if (firstZeroPos <> -1) and (lastZeroPos = -1) then begin
    writeln('[+] Ноль найден: ');
    writeln('    [!] Первый ноль в: ',firstZeroPos); {порядковый номер массива}
    writeln('    [!] последний ноль в:  None'); {порядковый номер массива}
    writeln('    [!] Массив между нулем :');
    for i := firstZeroPos to n do
    begin
      write(' ',ar[i]);
      write(f2,ar[i],' ');
    end;
  end
  else begin
    writeln('[+] Ноль не найден: ');
    writeln('    [!] Массив :');
    for i := 1 to n do
    begin
      write(f2,ar[i],' ');
      write(' ',ar[i]);
    end;
  end;
end; 
 
procedure Vivod_arr(ar: tAr; n: integer);
var
  f1:text;
  i: integer;
begin
     assign(f1,'in.txt');
     reset(f1);
     writeln('[+] Длина массива: ',n);
     for i := 1 to n do begin
    read(f1,ar[i]);
    write(' ');
    write(' ',ar[i]:1);
    
end;
end;
 
var
  ar: tAr;
  n: integer;
begin
  vvod_arr(ar, n);
  Vivod_arr(ar, n);
  obrabotka(ar, n);
  readln;
end.

procedure Vivod_arr(ar: tAr; n: integer);

procedure Vivod_arr(var ar: tAr; n: integer);