Free pascal problema

Sveiki. Turiu problema su FPS. Sukuriau programa su gafika. Ideja tokia, kad joje krenta raides o zmogus pamates ta raide paspaudzia tos raides klavisa ir ta raide pradingsta ir atsiranda kita raide kitoj vietoj. Viskas veikia, bet tik tada kai esi isijunges programos langa, o noreciau,kad veiktu ziurint vien i grafikos langa.

Sitaip atrodo viskas kai veikia(su grafikos ir programos langu):http://gyazo.com/667b5e5f723925a3e4d33aec64075878.png

Pati programa:

program Bevarde35;

uses graph,crt;

var

mx, my,m,s,o,p,k,x,y,l :integer;

i,key:char;

begin

initgraph(x,y,' ');

randomize;

mx:=GetmaxX;

my:=GetmaxY;

Setcolor(red);

Setbkcolor(black);

repeat

l:=random(mx);

i:=chr(97+random(26));

s:=0;

while s<my do

begin

setcolor(white);

SetTextStyle(gothicfont,0,4);

OutTextXY(l,s,i);

delay(4);

setcolor(black);

SetTextStyle(gothicfont,0,4);

OutTextXY(l,s,i);

s:=s+1;

o:=ord(i);

if keypressed then

begin

key:=ReadKey;

p:=ord(key);

if o=p then s:=1000;

end;

end;

until keypressed;

Readln;

CloseGraph;

end.