Составить программу и схема-блок для четырех точек и определить в какой четверти они находятся

program Project2;
 
uses crt;
 
var
    x,y,z,m : integer ;
begin
clrscr;
write('Введите x : '); readln(x);
write('Введите y : '); readln(y);
write('Введите z : '); readln(z);
write('Введите m : '); readln(m);
 
write ('Номер четверти координатной плоскости: ');
    if (x > 0) and (y > 0) then
        writeln ('I')
    else
        if (x < 0) and (y > 0) then
            writeln ('II')
        else
            if (x < 0) and (y < 0) then
                writeln ('III')
            else
                if (x > 0) and (y < 0) then
                    writeln ('IV')
                else
                    writeln ('-. Точка лежит на оси.');
readln;
end.

while true do 
 begin
  write('Введите x : '); readln(x);
   ...
readln; //Тут допустим можно считать какую-то из переменных для завершения цикла.

program Project2;
 
uses
  Crt;
 
var
  x, y, m: integer ;
 
begin
  ClrScr;
  while m <> -1 do 
  begin
    write('Введите x : '); readln(x);
    write('Введите y : '); readln(y);
    
    write('Номер четверти координатной плоскости: ');
    if (x > 0) and (y > 0) then
      writeln('I')
    else
    if (x < 0) and (y > 0) then
      writeln('II')
        else
    if (x < 0) and (y < 0) then
      writeln('III')
            else
    if (x > 0) and (y < 0) then
      writeln('IV')
    else
      writeln('-. Точка лежит на оси.');
    writeln('Для продолжения введите 1. Для Выхода -1');
    readln(m);
  end;
  
end.