Написать 2 процедуры(бегущая строка и регулировка скорости перемещения)

Uses crt,dos;
var Reg: Registers;
{---------------------------------}
Procedure KursOff; {Убрать курсор}
begin
 with Reg do
  begin
   AH := 1;    {Управление курсором}
   CH := $20   {Убрать курсор}
  end;
 Intr($10,Reg);
end;
{---------------------------------}
Procedure BegStr(y: Integer;str: String;speed: Integer);
Var
  strok : String;
  a, k  : Integer;
Begin
  str:=' '+str;
  k:=80-length(str);
  for a:=1 to k-1 do
  str:=str+' ';
  repeat
    delete(str,1,1);
    gotoxy(1,y);
    delay(speed);
    delline;
    write(str);
    strok:=copy(str,1,1);
    str:=str+strok;
  until keypressed;
end;
 
begin
  Textbackground(7);
  clrscr;
  TextColor(13);
  KursOff;
  BegStr(10,'1234567891011121314151617181920212223242526',200);
  clrscr;
end.

uses crt;
type mas=array[1..80] of char;
procedure Stroka(s:string; var a:mas; var n:byte);
var i:byte;
begin
n:=length(s);
for i:=1 to n do
a[i]:=s[i];
while n<80 do
 begin
  n:=n+1;
  a[n]:=' ';
 end;
end;
procedure Beg(var a:mas;n:byte;z:integer);
var i:byte;
    c:char;
begin
repeat
clrscr;
for i:=1 to n do
write(a[i]);
delay(z);
c:=a[n];
for i:=n downto 2 do
a[i]:=a[i-1];
a[1]:=c;
until keypressed;
end;
var s:string;
    a:mas;
    n,sk:byte;
    zd:integer;
begin
clrscr;
repeat
writeln('Введите строку от 10 до 75 символов:');
readln(s);
until length(s) in [10..75];
Stroka(s,a,n);
repeat
write('Выберите скорость 1..4');
readln(sk);
until sk in [1..4];
zd:=250-sk*50;
Beg(a,n,zd);
end.