Witam, mam dwie procedury i chciałbym żeby ze sobą współgrały, lecz nie mam pojęcia jak to zrobić..mianowicie chodzi o to, żebym mógł sterować samochodzikiem kiedy przeszkoda spada oto te procedury: samochód program gra; uses crt; var x,y,i:integer; klawisz:boolean; samochod:string; z:char; procedure auto; begin clrscr; x:=25; y:=20; repeat begin clrscr; gotoxy(x,y); samochod:='$'; write(samochod); klawisz:=keypressed; z:=readkey; if klawisz=false then begin if z=#97 then {w lewo} begin dec(x); gotoxy(x,y); write(samochod); end else if z=#100 then {w prawo} begin inc(x); gotoxy(x,y); write(samochod); end; end; end; until z=#27; end; begin clrscr; auto; readkey; end. oraz przeszkoda: uses crt; var x,y,i:integer; klawisz:boolean; samochod:string; z:char; procedure przeszkoda; var i,j,k,l:integer; begin clrscr; randomize; i:=random(15); j:=2; repeat clrscr; gotoxy(i,j); writeln('XXXXX'); delay(200); inc(j); until readkey=#27; end; begin clrscr; przeszkoda; readkey; end. proszę o pomoc w połączeniu tych dwóch procedur