Pascal. Диалоговая программа

[ANTON2527]

Задача:
Составьте диалоговую программу угадывания случайно выбранных координат цели в квадрате: по оси х от –10 о 30, по оси у от 2 до 28 c восьми попыток с двойным сообщением корректировщика, например: уменьшить Х, либо: немного уменьшить Х (если отклонение от цели меньше 3).

Помогите решить. Заранее спасибо

[alex_fcsm]

Что уже есть?

[ANTON2527]

Сообщение от alex_fcsm

Что уже есть?

Всмысле? Свои наработки? К сожелению ничего

[Mad_Cat]

var
  x,y,x1,y1:Integer;
  i:Integer;
  f,f1:Boolean;
begin
  Randomize;
  x:=Random(41)-10;
  y:=Random(29)+2;
  f:=False;f1:=False;
  for I := 1 to 8  do
    begin
      write(i:6,' ');
      if not f then
        begin
          Writeln('BBegu X');
          Readln(x1);
          if x>x1 then begin
            if (x-x1)<=3 then Writeln('+ x')
            else Writeln ('++ x');
          end;
          if x<x1 then begin
            if (x1-x)<=3 then Writeln('- x')
            else Writeln ('-- x');
          end;
          if x=x1 then f:=True;
        end;
      if not f1 then
        begin
          Writeln('BBegu Y');
          Readln(Y1);
          if y>y1 then begin
            if (y-y1)<=3 then Writeln('+ y')
            else Writeln ('++ y');
          end;
          if y<y1 then begin
            if (y1-y)<=3 then Writeln('- y')
            else Writeln ('-- y');
          end;
          if y=y1 then begin f1:=True;Writeln('н;
        end;
      if f and f1 then Break;

    end;
  Writeln('=========PE3y/\bTaT==================');
  if f and f1 then Writeln('TbI TTo6egu/\')
  else
  if f then Writeln('X yragaH')
  else
  if f1 then Writeln('Y yragaH')
  else Writeln('HE yraga/\','x=',x:4,'  y=',y:4);
  readln;
end.