Задать ограничения для движения круга

program dvigai_krug_2;
uses crt,GraphABC;
var a: string;
var x,y,r,b,c: integer;
begin
SetWindowSize(450, 300);
SetWindowTitle('Двигай круг!');
Textout(155,205,'Список команд:');
line(150,0,150,300);
line(150,200,450,200);
Textout(155,220,'Обычные: вверх,вниз,вправо,влево');
Textout(155,235,'Двойные: 2вверх,2вниз,2вправо,2влево');
Textout(155,250,'Вводные: команда "ввод" вызывает окно');
Textout(155,265,'ввода, куда вводятся новые координаты');
Textout(155,280,'круга(через пробел)');
HideCursor; //уберем курсор
SetBrushColor(clBlue);
x:=300;y:=100;r:=10;
Circle(x,y,r);
for b:=1 to 19 do
 begin
read(a);
if a='вверх' then
 begin
SetBrushColor(clWhite);
 
Circle(x,y,r);
y:=y-10;
SetBrushColor(clBlue);
Circle(x,y,r);
 end;
if a='вниз' then
 begin
SetBrushColor(clWhite);
SetPenColor(clWhite);
Circle(x,y,r);
y:=y+10;
SetBrushColor(clBlue);
Circle(x,y,r);
 end;
if a='вправо' then
 begin
SetBrushColor(clWhite);
SetPenColor(clWhite);
Circle(x,y,r);
x:=x+10;
SetBrushColor(clBlue);
Circle(x,y,r);
 end;
if a='влево' then
 begin
SetBrushColor(clWhite);
SetPenColor(clWhite);
Circle(x,y,r);
x:=x-10;
SetBrushColor(clBlue);
Circle(x,y,r);
 end;
if a='2вверх' then
 begin
SetBrushColor(clWhite);
SetPenColor(clWhite);
Circle(x,y,r);
y:=y-20;
SetBrushColor(clBlue);
Circle(x,y,r);
 end;
if a='2вниз' then
 begin
SetBrushColor(clWhite);
SetPenColor(clWhite);
Circle(x,y,r);
y:=y+20;
SetBrushColor(clBlue);
Circle(x,y,r);
 end;
if a='2вправо' then
 begin
SetBrushColor(clWhite);
SetPenColor(clWhite);
Circle(x,y,r);
x:=x+20;
SetBrushColor(clBlue);
Circle(x,y,r);
 end;
if a='2влево' then
 begin
SetBrushColor(clWhite);
SetPenColor(clWhite);
Circle(x,y,r);
x:=x-20;
SetBrushColor(clBlue);
Circle(x,y,r);
 end;
if b=14 then
 begin
SetBrushColor(clgreen);
Circle(x,y,r);
 end;
if a='ввод' then
 begin
  SetBrushColor(clWhite);
  SetPenColor(clWhite);
  Circle(x,y,r);
  writeln('Новые координаты:');
  read(x,y);
  SetBrushColor(clBlue);
  Circle(x,y,r);
  end;
 end;
end.

if (a='вверх')and(y>10) then
   begin
    SetBrushColor(clWhite);
    setpencolor(clWhite);
    Circle(x,y,r);
    y:=y-10;
    setpencolor(clBlue);
    SetBrushColor(clBlue);
    Circle(x,y,r);
   end;
  if (a='вниз')and(y<190) then
   begin
    SetBrushColor(clWhite);
    SetPenColor(clWhite);
    Circle(x,y,r);
    y:=y+10;
    SetBrushColor(clBlue);
    setpencolor(clBlue);
    Circle(x,y,r);
   end;

if a='ввод' then
 begin
  SetBrushColor(clWhite);
  SetPenColor(clWhite);
  Circle(x,y,r);
  repeat
  writeln('Новые координаты:');
  writeln('X от 160 до 440');
  writeln('Y от 10 до 190:');
  read(x,y);
  until(x>=160)and(x<=440)and(y>=10)and(y<=190);
  SetBrushColor(clBlue);
  setpencolor(clBlue);//везде нужно указывать цвет границы, иначе будут реликты черного цвета
  Circle(x,y,r);
  end;