Сделать прокрутку в программе

uses
  crt,graphabc;
 
var
  f: text;
  s, s1, s2: string;
  n: char;
 
 
 
procedure vivod;
begin
  reset(f);
  writeln('          БД');
  while not eof(f) do
  begin
    readln(f, s);
    writeln(s);
    readln(f, s1);
    writeln(s1);
    readln(f, s2);
    writeln(s2);
  end;
  close(f);
end;
 
procedure udal;
begin
  rewrite(f);
  writeln('вся информация была удалена');
  close(f);
end;
 
procedure vvod;
var
  n, i: integer;
begin
  append(f);
  begin
    writeln('Укажите кол-во предметов');
    readln(n);
    writeln('Введите предмет, оценку и дату оценивания');
    for i := 1 to n do
    begin
      readln(s);
      writeln(f, '   _____________________ ');
      writeln(f, ' //                     \\');
      writeln(f, '||                       ||');
      writeln(f, '||Предмет: ',s);
      readln(s1);
      writeln(f, '||Оценка: ',s1);
      readln(s2);
      writeln(f, '||Дата: ',s2);
      writeln(f, '||                       ||');
      writeln(f, ' \\_____________________//');
    end;
    close(f);
  end;
end;
 
begin
  assign(f, 'D:\Новая папка\BASA.txt');
  begin
  while(true ) do
  begin
    writeln('Введите свои действия.');
    writeln('1 - Вывод');
    writeln('2 - Ввод');
    writeln('3 - Удалить');
    writeln('4 - Выход');
    readln(n);
    clrscr;
 
    case n of
      '1': vivod;
      '2': vvod;
      '3': udal;
      '4': halt;
      else writeln('Ошибка, введите заново');
    end;
    writeln('-----------Enter----------');
    readln;
    clrscr;
  end;
end;
end.

k:=k+1;//количество выведенных строк
if k mod 20=0 then//если кратно 20
 begin
  writeln('Press Enter');//просмотреть
  readln;//и нажать Enter
 end;