Скроллинг(Прокрутка) в Pascal ABC.

[H4t]

Здравствуйте, нужно сделать скроллинг в Pascal ABC, есть обычная БД, реализована через список, модули - crt и graphABC, суть в том, что при выводе данных на экран видно только последние 3 записи и нужно сделать хоть какой-то скроллинг, допустим по нажатию стрелки вниз будет показывать следующие три записи, просмотр предыдущих трех не обязателен. Либо любые другие варианты хоть какого-то бедного скроллинга, лишь бы была возможность просмотреть все записи при выводе на экран.
P.S. Если работа "не на 15 минут", то само собой возможна материальная благодарность.

Вот код, просто как пример к сложившейся проблеме, выводит только последние 3 записи:

[Dyachuk]

// Ïðîöåäóðà ïåðåãëÿäó êîäó
Procedure ViewKod;
Var f:text;
st:string;
Begin
//ScrollingOff;
assign(f,'mo.pas');
reset(f);
n:=0;
while not eof(f) do
begin
ch:=readkey;
//i:=ord(ch);

if ch=#0 then

ch:=readkey;
if ch=#80 then
for i:=1 to 20 do
begin
readln(f,st);
n:=n+1;
writeln(st);
end;


if ch=#72 then
delline;

if (ch<>#80) and (ch<>#72) then begin close(f); exit; end;
end;
close(f);

End;