че то не то намутил! помогите !? Pascal ABC

Решил написать чертежника, который сам начертит круглый многоугольник, но не робит !
помогите я в этом деле полный нуб !
вот код :
program drawman;
uses drawman;
var
x,y,z :Integer;
f1 :text;
begin
Field(11,11);
x:=3;
y:=3;
ToPoint(x,y);
PenDown;
while true do
begin
assign(f1,'f1.txt');
reset(f1);
read(f1,x,y);
if y <> 5 then
begin
y:=+1;
x:=-1;
end
else if y<>7 then
begin
y:=+1;
x:=+1;
end
else if x<>5 then
begin
y:=-1;
x:=+1;
end
else
y:=-1;
x:=-1;
ToPoint(x,y);
rewrite(f1);
writeln(f1,x,y);
close(f1);
end
end.

убрал while true do
но линия чертежника выходи за пределы !