ПОСТРАНИЧНЫЙ ВЫВОД БД в Паскаль

[Юп@тошк@]

procedure prosmotor;
var
i,nz:integer;
begin
clrscr;
       if filesize(f)=0 then
          begin
               writeln('* Zapicei net * ');
          end
               else
             begin
                shapka;
                 seek(f,0);
                 if not eof(f) then
                repeat
                   read(f,kon);
                   nz:=filepos(f);
                   with kon do
                       begin
                   y:=wherey;
                   gotoxy(6,y);
                   write(kon.name);
                   gotoxy(21,y);
                   write(kon.cena:5:2);
                   gotoxy(36,y);
                   write(kon.voz_gr);
                   gotoxy(58,y);
                   writeln(kon.kol);
            end;
                until eof(f);
                end_t;
      end;
       readkey;
end;

Помогите изменить функцию в вывод по 20 строк на странице



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

без проверки, примерно так:

procedure prosmotor;
var
  i, k, nz: integer;
begin
  clrscr;
  if filesize(f) = 0 then
  begin
    writeln('* Zapicei net * ');
  end
  else
  begin
    seek(f, 0);
    K := 0;
    if not eof(f) then
      repeat
        if K=0 then begin
             clrscr;    
             shapka;
        end;
        inc(K);
        read(f, kon);
        nz := filepos(f);
        with kon do
        begin
          y := wherey;
          gotoxy(6, y);
          write(kon.name);
          gotoxy(21, y);
          write(kon.cena: 5: 2);
          gotoxy(36, y);
          write(kon.voz_gr);
          gotoxy(58, y);
          writeln(kon.kol);
        end;
        if K=20 then begin
          gotoxy(1,25);
          write('Press any key to continue.....');
          Readkey;
          K := 0;           
        end;
      until eof(f);
  end;
  readkey;
end;