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

[SilverShield]

Люди над помочь сделать 2 программы: 1)Составить программу вывода на экран двух окон, обрамленных рамкой. В первое окно введите время, если оно отличается от текущего не более чем на час, то во втором окне пусть появится надпись, предусмотрите завершение выполнения программы нажатием клавиши Esc(желательно что б надпись была в виде непрерывно бегущей справо на лево строки, надпись что -то вроде время отличается больше чем на час...):
2)Составить программу вывода в левой части экрана изображения пушки. В правой части экрана воявляется и исчезает мишень. нажатием клавиши Enter(или пробел) производится выстрел из пушки. МОмент попадания фиксируется в виде взрыва, Предусмотреть возможность изменять скорость полёта снаряда с индикацией на экран ее значения:
вот немног похожая программа ко 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.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.




Заранее всем кто поможет БОЛЬШОЕ СПС...!!!