Движение квадрата.

uses crt,graph;
var gd,gm:integer;
 
procedure MoveRect;
var x,y,x1,y1:integer;
    c1,c2:byte;
    k:char;
    move:boolean;
begin
x:=280;y:=200;
c1:=12;c2:=0;
move:=true;
repeat
if keypressed then
  begin
    k:=readkey;
    if (k=#83)or(k=#115)or(k=#155)or(k=#238) then
      begin
        y1:=y;
        x1:=x;
        y:=y+5;
        move:=true;
      end;
    if (k=#87)or(k=#119)or(k=#150)or(k=#230) then
      begin
        y1:=y;
        x1:=x;
        y:=y-5;
        move:=true;
      end;
    if (k=#68)or(k=#100)or(k=#130)or(k=#162) then
      begin
        y1:=y;
        x1:=x;
        x:=x+5;
        move:=true;
      end;
    if(k=#65)or(k=#97)or(k=#148)or(k=#228) then
      begin
        y1:=y;
        x1:=x;
        x:=x-5;
        move:=true;
      end;
  end;
if move then
  begin
   Setcolor(c2);
   Rectangle(x1,y1,x1+80,y1+80);
   Setcolor(c1);
   Rectangle(x,y,x+80,y+80);
   move:=false;
  end;
until k=#27;
end;
begin
gd:=detect;
Initgraph(gd,gm,'');
OutTextXY(100,20,'Uprawlenye A-vlevo; W-vverh; D-vravo; S-vniz; Vyhod-Esc;');
MoveRect;
closegraph
end.