движение по стрелкам Опции

[biba]

Есть ведомость ( текстовой файл). Причем все записи не вмещаются на экране. Движение должно быть по стрелкам. Т.е. как я поняла ведомость должна "прокручиваться". Вот как двигаться по стрелкам я не знаю
Я знаю, что должны использоваться какие-то коды клавиш или еще что-то там, но как это в программу втиснуть я даже и представить не могу.

З.Ы. А append может только одну запись добавлять в файл или несколько?

[biba]

Я написала прогу, но она не работает Выводит тока первые 20 записей и работает тока на Esc, а стрелки нет

Код

  procedure SCREENVED1 (var VED1:text);
  var I:integer; stroka:string; ch:char;
  begin
  clrscr;
  assign (VED1,'vedomost'); reset (VED1); for I:=1 to 20 do begin gotoxy(1,3+i);
  readln (VED1,stroka); write (stroka:45); writeln; end;
  repeat ch:=readkey; if ch=#0 then ch:=readkey;
  if ch=#72 then i:=i-1 {вверх};if ch=#80 then i:=i+1; {вниз}
  until ch=#27; end;

Может в программе ошибка, тока где?