В паскале нужно найти ошибку.

[ProstooStudent]

Вот код программы:Нужно чтобы она перемещалась полностью а не как в программе.

Program Primer1;
Uses graphABC,crt;
Var x,y,x2,y2:integer;
//
procedure primerno(k:integer);
Begin
setpenwidth(3);
line(x2+600,50,y2+250,50);
line(x2+600,200,y2+600,50);
line(x2+400,200,y2+600,200);
line(x2+400,200,y2+400,350);
line(x2+250,350,y2+400,350);
line(x2+250,50,y2+250,350);
FloodFill(x2+253, 153,clRed);
end;
//
//
procedure Primer;
Begin;
Setfontsize(15);
TextOut(440,55,'y');
TextOut(840,460,'x');
TextOut(440,460,'0');
TextOut(440,430,'1');
TextOut(455,460,'1');
//
setpenwidth(1);
//
x:=50;
lockdrawing;
repeat
line(x,50,x,800);
x:=x+50;
lockdrawing;
until x>850;
y:=50;
lockdrawing;
repeat
line(50,y,850,y);
y:=y+50;
until y>800;
setpenwidth(3);
line(50,450,850,450);
line(450,50,450,800);
end;
//
//
Begin
maximizewindow;
x2:=-200;
y2:=-200;
lockdrawing;
Repeat
x2:=x2+50;
primerno (clBlue);
primer;
delay (10);
redraw;
clearwindow;
Until x2>200;
//
lockdrawing;
repeat
y2:=y2+50;
Primerno (clBlue);
primer;
delay (10);
redraw;
clearwindow;
until y2>200;
end.

клон Vladislav125

[newerow1989]

procedure primerno(k:integer);
Begin
setpenwidth(3);
line(x2+600,y2+50,x2+250,y2+50);
line(x2+600,y2+200,x2+600,y2+50);
line(x2+400,y2+200,x2+600,y2+200);
line(x2+400,y2+200,x2+400,y2+350);
line(x2+250,y2+350,x2+400,y2+350);
line(x2+250,y2+50,x2+250,y2+350);
FloodFill(x2+253, y2+153,clRed);
end;

y2:=-200;

заменить на

y2:=0;