Pascal Yon Tusları

Merhaba,
Pascal da yon tuslarini kullanarak devamli yazilar nasil yapiliyor?? yapabildigim sadece tek yonler. Yani yukari tusuna basili tutunca surekli yukarı yaziyor. Sag sol asagi da da ayni. fakat her ikisini de sag yukari sol yukari gibi yazilari nasil yazdirabilirim? yardimci olursaniz sevinirim. Simdiye kadar yapabildigim:

uses crt;
var
ch,k:char;
function Son(x:char):string;
begin
if (x=#80) then Son:='asagi';
if (x=#72) then Son:='yukari';
if (x=#75) then Son:='sol';
if (x=#77) then Son:='sag';
end;
begin
clrscr;
repeat
k:=readkey;
if (k=#0) then
ch:=readkey;
writeln(Son(ch));
until k=#27;
end.