Схема программы(Pascal)

program tablica;
const
     nmax = 200;
     cr = #13#10;
type
    tzhiteli = record
                strana: string[15];
                nachion: string[15];
                kolzh: longint;
              end;
var
   zhiteli: array[1..nmax] of tzhiteli;
   stroka,kolzp,dlina,koln,list,strana: byte;
   f: text;
   i,j: integer;
   okolzh,kolzh: Longint;

procedure chtenie(name: string);
var
   f: text;
begin
  kolzp:=0;
  assign(f, name);
  reset(f);
  while not eof(f) do
    begin
      inc(kolzp);
      readln(f, zhiteli[kolzp].strana,zhiteli[kolzp].nachion,
               zhiteli[kolzp].kolzh);
    end;
  close(f);
end; {chtenie}

procedure zagolovok;
begin
  writeln(f,'+----------------------------------------------------------+',cr,
            '| Страна                 Национальность            Жите-лей |',cr,
            '+----------------------------------------------------------+');
end;{zagolovok}

procedure itog(list,koln:byte; kolzh: Longint);
begin
  writeln(f,'+----------------------------------------------------------+',cr,
            '| Лист:',list:3,'  Национальностей:',koln:3,'  Кол-во жителей:',
              kolzh:10,' |',cr,
            '+----------------------------------------------------------+');
end;{itog}

procedure detal(zhiteli: tzhiteli);
begin
  writeln(f,'| ',zhiteli.strana,'        ', zhiteli.nachion,'       ',
            zhiteli.kolzh:11,' |');
end; {detal}

begin
  chtenie('zhiteli.txt');
  writeln('Введите длинну листа:');
  readln(dlina);
  i:=1;list:=1;okolzh:=0;strana:=1;
  assign(f,'output.txt');
  rewrite(f);
  Writeln(f,'                КОЛИЧЕСТВО ЖИТЕЛЕЙ НА ЗЕМЛЕ.',cr,cr,
            ' Код: Г578669НС                             Да-та__________',cr);
  while i<kolzp do
    begin
      zagolovok;
      stroka:=1;
      kolzh:=0;
      koln:=0;
      repeat
        detal(zhiteli);
        inc(koln);
        inc(kolzh,zhiteli.kolzh);
        if not(i=kolzp) then
          if(zhiteli[i+1].strana<>zhiteli.strana) then
            begin
              if (stroka+3)>=(dlina-6) then stroka:=dlina
              else
              begin
              itog(list,koln,kolzh);inc(stroka,3);
              inc(okolzh,kolzh);
              kolzh:=0;
              koln:=0;
              end;
              inc(strana);
            end;
        inc(stroka);
        inc(i);
      until (stroka>(dlina-6)) or (i>kolzp);
      itog(list,koln,kolzh);
      inc(okolzh,kolzh);
      writeln(f,cr);
      inc(list);
    end;
  writeln(f,'ИТОГ      Всего стран   :',strana:10,cr,
            '          Всего жителей :',okolzh:10);
  close(f);
end.