Скролинг, вывод файла с большим кол-вом записей Опции

[Renbo]

Имеем Типизированный фаил. Работаем последовательным доступом.

Имеется вот такая процедурка вывода ввиде таблички.

procedure vivod2;
var
  i:integer;
Begin
  clrscr;
  i:=0;
  assign(spravochnik2,'spravka2');
  reset(spravochnik2);
  writeln('----------------------------------------------------------------------------');
  writeln('№':3,'   Табельный            ФИО                    Семейное        Количество');
  writeln('       Номер            сотрудника                положение         детей    ');
  writeln('----------------------------------------------------------------------------');
  with Zap2 do
  while not eof(spravochnik2) do
    begin
      inc(i);
      write(i:3);
      read(spravochnik2,Zap2);writeln(TabNom:9,FIOsotr:30,SP:15,Deti:14);
    end;
  close(spravochnik2);
End;

Проблема: Если записей будет более 20 что ли...то в итоге паскаль выводит на экран только последние несколько записей, при этом не видна шапка. Как я понял лучше шапку выделить в отдельную процедуру. А вот с самим выводом как быть? хочется, чтобы он прокручивался по нажатию на стрелочки вниз-вверх

[Tan]

Распределение большого кол-ва Записей - посмотри на этой странице в этом разделе, я создавал тему с таким же смыслом как и твоя!

[Renbo]

Всё хорошо, спасиб большое, но есть НО. Мне желательно нумерацию записей сохранить. Тоесть если я вывожу по 10, а у меня их 15, то на следующей странице он начнёт показ с 11й.

И ещё, Esc какой номер имеет? )