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

[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 что ли...то в итоге паскаль выводит на экран только последние несколько записей, при этом не видна шапка. Как я понял лучше шапку выделить в отдельную процедуру. А вот с самим выводом как быть? хочется, чтобы он прокручивался по нажатию на стрелочки вниз-вверх