Модифицировать программу, оформив ее в виде трех процедур: ввода, обработки и вывода данных

uses crt;
var
    a:array[1..255] of integer;
    n,i,firstZeroPos,lastZeroPos:integer;
 
begin
    randomize;
    n:=random(254-5+1)+5;
    writeln('[+] Длина массива: ',n);
    for i:=1 to n do begin
        a[i]:=random(255);
        write(' ', a[i]);
    end;
    writeln('');
    writeln('[+] Найти нуль ');
    firstZeroPos:=-1;
    lastZeroPos:=-1;
    for i:=1 to n do begin
       if(firstZeroPos=-1) and (a[i]=0) then begin
         firstZeroPos:=i;
         continue;
       end;
       if(a[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(' ',a[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(' ',a[i]);
            end;
        end
        else begin
            writeln('[+] Ноль не найден: ');
            writeln('    [!] Массив :');
            for i:=1 to n do begin
                write(' ',a[i]);
            end;
        
        end;
     readln;
end.

uses
  crt;
 
type
  tAr = array[1..255] of integer;
 
procedure init_arr(var ar: tAr; var n: integer);
var
  i: integer;
begin
  randomize;
  n := random(254 - 5 + 1) + 5;
  writeln('[+] Äëèíà ìàññèâà: ', n);
  for i := 1 to n do
    ar[i] := random(255);
end;
 
procedure outPut_arr(ar: tAr; n: integer);
var
  i: integer;
begin
  for i := 1 to n do
    write(ar[i]:4);
  writeln;
end;
 
procedure proc(ar: tAr; n: integer);
var
  i, firstZeroPos, lastZeroPos: integer;
begin
  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]:4);
    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]:4);
    end;
  end
  else begin
    writeln('[+] Íîëü íå íàéäåí: ');
    writeln('    [!] Ìàññèâ :');
    for i := 1 to n do
    begin
      write(ar[i]:4);
    end;
 
  end;
end;
 
var
  a: tAr;
  n: integer;
begin
  init_arr(a, n);
  outPut_arr(a, n);
  proc(a, n);
  readln;
end.