На экране рисуется разных цветов прямоугольники (в прямоугольнике прямоугольник), когда прекращает рисовать, нажав «space» должно повторятся с начала, нажав «enter» — работа прекращается — Pascal(Паскаль)

uses crt,graph;
var x1,y1,x2,y2,dx,dy:integer;
procedure move;
begin
x1:=10;y1:=10;
x2:=630;y2:=470;
dx:=10;dy:=10;
repeat
setcolor(random(15)+1);
rectangle(x1,y1,x2,y2);
delay(200);
x1:=x1+dx;y1:=y1+dy;
x2:=x2-dx;y2:=y2-dy;
until (y2-y1<10);
end;
procedure clear;
begin
Setcolor(0);
rectangle(0,0,640,480);
SetfillStyle(1,0);
Bar(0,0,640,480);
end;
var gd,gm:integer;
    c:char;
begin
gd:=detect;
initgraph(gd,gm,'');
move;
c:=readkey;
if c=#32 then
  begin
   clear;
   move;
  end
else if c=#13 then exit;
readln;
closegraph;
end.