Создать бегущую строку с изменением положения на экране верх - низ по нажатию клавиши F8 - Turbo Pascal

uses crt;
const a:array[boolean] of integer=(-5,5);
var s,s1:string;
    i,k,y:byte;
    c:char;
    f:boolean;
begin
clrscr;
s:='Это бегущая строка   Это бегущая строка   Это бегущая строка ';
s:=' '+s;
k:=80-length(s);
clrscr;
y:=15;
f:=false;
writeln('Строка F8 выход Esc');
for i:=1 to k-1 do
s:=s+' ';
repeat
 delete(s,1,1);
 gotoxy(1,y);
 delay(50);
 delline;
 write(s);
 gotoXY(25,1);
 s1:=copy(s,1,1);
 s:=s+s1;
 if keypressed then
  begin
  c:=readkey;
  if c=#0 then c:=readkey;
  case c of
  #66:begin
      y:=y+a[f];
      gotoXY(1,y-a[f]);
      delline;
      f:=not f;
      end;
  #27:exit;
  end;
  end;
until c=#27;
end.