Анимация - Pascal - Ответ 818550

Uses Crt, Graph;
Var i,j,h,d,grDriver, grMode, ErrCode, st,s : Integer;
p:pointer;
size:word;
k:char;
x,y,err:integer;
 
 
procedure zap(x,y:integer);
   begin
    getImage(x,y,x+st*2,y+st*2,P^);
   end;
 
procedure treug(a,b,c,x1,y1:integer);
     begin
     setFillStyle(SolidFill,red);
     line(c+x1,y1,b+x1,y1);
     line(c+x1,y1,x1,c+y1);
     line(x1,c+y1,c+x1,c*2+y1);
     line(c+x1,c*2+y1,b+x1,c*2+y1);
     line(b+x1,c*2+y1,c*2+x1,a+y1);
     line(c*2+x1,a+y1,c*3+x1,c+y1);
     line(c*3+x1,c+y1,b+x1,y1);
     FloodFill(x1+d,y1+d+1,1);
     end;
 
  procedure vost(x,y:integer);
   begin
    PutImage(x, y, P^, CopyPut);
   end;
 
Begin
clrscr;
{$I-}repeat
 
  writeln('Введите сторону 6-угольника');
    readln(st);
    {$I+}
    err:=IoResult;
    if (err<>0) or (st<=0) or (st>180) then WriteLn('ощибка!!!');
    Until ((err=0) and (st>0) and (st<=180));
    h:=round(sqrt(sqr(st)-4));
    d:=round(st/2 );
 grDriver:=Detect;
 InitGraph(grDriver, grMode, '');
 ErrCode:=GraphResult;
 If ErrCode = grOk Then
  Begin
  randomize;
    cleardevice;
    x:=0;
    y:=0;
 
    J:=20;
    I:=20;
    repeat
    i:=20;
    repeat
 
    setfillstyle(1,2+random(10));
    fillellipse(i,j,20,20);
 
    I:=i+40;
    until i>640 ;
    J:=J+40
    until j>480 ;
 
    setcolor(1);
 
     Size:=ImageSize(x*2,y*2,x+st*2,y+st*2);
 
 
GetMem(P, Size);
zap(x,y);
 
repeat
k:=readkey;
vost(x,y);
 
if ord(k)=0 then
   begin
 
    k:=readkey;
 
    if (ord(k)=80)and(y+st<440) then
     y:=y+5;
 
    if (ord(k)=72) and (y>40) then
    y:=y-5;
 
    if (ord(k)=75)and(x>40) then
    x:=x-5;
 
    if (ord(k)=77)and(x+st+50<640) then
    x:=x+5;
 
    end;
 
 
zap(x,y);
treug(H,st,D,x,y);
 
Until ord(k)=27;
 
   FreeMem(P, Size);
     CloseGraph;
  End
 Else WriteLn('Ошибка инициализации графики:', GraphErrorMsg(ErrCode));
End.