Над изменить или помочь сделать 2 программки...

uses crt, graphABC;
var z,x,y,xk,xl,s,x0:integer; t:string[3];  o:char;
procedure kor;
begin
line(20+xl,1,20+xl,20);
line(20+xl,1,30+xl,20);
line(0+xl,20,40+xl,20);
circle(15+xl,25,3);
circle(25+xl,25,3);
line(0+xl,20,10+xl,30);
line(40+xl,20,30+xl,30);
line(10+xl,30,30+xl,30);end;
procedure bum;begin
while xk<40 do begin inc(xk);
circle(20+xl,20,xk);  end;
while xk>0 do begin dec(xk);
circle(20+xl,20,xk);end;end;
procedure bom;
begin circle(x,y,10);
end;begin randomize;
y:=280; s:=0; x0:=1;
repeat
if keypressed=true then o:=readkey;
if (o='`') or (o='ё') then halt; if xl<700 then
begin z:=random(10); xl:=xl+z; kor; end else begin
 xl:=-40; end;
line(0,325,640,325);
 
if (o=#72) and (s<9) then
begin o:='o'; inc(s); end;
if (o=#80) and (s>0) then
begin o:='o'; dec(s); end;
case s of
0: t:='0'; 1: t:='1'; 2: t:='2';
3: t:='3'; 4: t:='4'; 5: t:='5';
6: t:='6'; 7: t:='7'; 8: t:='8';
9: t:='9'; end;
if (o=#75) then if (x0<315) then begin  o:='o'; x0:=x0+10; end else x0:=-330;
if (o=#77) then if(x0>-315) then begin o:='o'; x0:=x0-10;end else x0:=330;
if o=#32 then if y>20 then begin x:=320+x0; y:=y-5-1*s;
bom; end else if (xl>=280+x0) and (xl<=320+x0) then
begin bum; xl:=0; y:=280; o:='o'; end else begin y:=280;
o:='o'; end; rectangle(300+x0,310,340+x0,320);
circle(307+x0,321,5);
circle(333+x0,321,5);
 
 circle(320+x0,310,5); line(320+x0,310,320+x0,280);
textout(250,340,'ИГРА ПОДВОДНИК v1.6');
textout(280,360,'СКОРОСТЬ:');
textout(350,360,t);
 
delay(10); clearwindow;
until (xl>=750);
end.