Как сделать повтор действия после нажатия любой клавиши

program Dinamochered;
uses crt;
type tinf=string[55];
     tukaz=^TE;
     TE=record
     inf:tinf;
     sled:tukaz;
     end;
var tek,posl,perv:tukaz;
    c,x:string[55];
    a:0..5;
    f:integer;
    kn:char;
procedure vstavka(var x:tinf);
procedure vstavkaza(var a:integer; b:tinf);
procedure razvorot;    
procedure prosmotr;
begin
clrscr;
perv:=nil;
posl:=nil;
repeat
writeln('Выберите действие над очередью ');
writeln('1-вставить строку в очередь');
writeln('2-вставить строку в очередь за указанным по порядку элементом');
writeln('3-просмотреть имеющуюся очередь');
writeln('4-просмотреть имеющуюся очередь в обратном направлении');
writeln('5-завершить программу');
readln(a);
kn:=readkey;
case kn of
'1':begin
        writeln('Введите строку для занесения в очередь ');
        readln(x);
        vstavka(x);
        writeln('Вставка успешна');
        writeln;
    end;
'2':begin
        writeln('Введите строку для занесения в очередь ');
        readln(c);
        writeln('Введите номер элемента (за которым нужно вставить строку ) ');
        readln(f);
        vstavkaza(f,c);
        readkey;
    end;
'3':begin
         if (perv=nil) and (posl=nil) then
            begin
                 writeln('Очередь пуста');
            end;
         prosmotr;
         readkey;
    end;
'4':begin
        if (perv=nil) and (posl=nil) then
           begin
                writeln('Очередь пуста');
           end;
        razvorot;
        prosmotr;
        readkey;
   end;
end;
until a=5;
if a=5 then
exit;
end.