Определить принадлежат ли все три точки одной координатной четверти

program text1;
uses
  crt;
type
  point = (A,B,C);
  koord = record
  x, y : real
  end;
  pl = array[point] of koord;
var
  t, t1 : text;
  tochki : pl;
  j, j1 : byte;
  i : point;
  AB, BC, CA, p, Sabc : real;
  bol : boolean;
  s, s1 : string;
begin
  clrscr;
  for i := A to C do
  begin
  writeln('Введите координаты точки ',i,' : ');
  write('x = '); readln(tochki[i].x);
  write('y = '); readln(tochki[i].y);
  end;
  assign(t,'FileKoord.txt');
  rewrite(t);
  for i := A to C do
    write(t,i,'(',tochki[i].x:0:2,',',tochki[i].y:0:2,') ');
  reset(t);
  readln(t,s);
  i := A;
  for j := 1 to length(s) do
   begin
    if s[j]='(' then j1 := j;
    if s[j]=',' then begin
    val(copy(s,j1+1,j-j1-1),tochki[i].x);
    j1 := j;
    end;
    if s[j]=')' then begin
    val(copy(s,j1+1,j-j1-1),tochki[i].y);
    inc(i);
    end;
   end;
  for i := A to B do
   if (tochki[i].x*tochki[succ(i)].x>=0) and (tochki[i].y*tochki[succ(i)].y>=0) then
    bol := true
   else
    begin
     bol := false;
     break;
    end;
  if not bol then writeln('Разные четверти.')
  else
   begin
    writeln('Одна четверть.');
    AB := sqrt(sqr(tochki[A].x-tochki[B].x)+sqr(tochki[A].y-tochki[B].y));
    BC := sqrt(sqr(tochki[B].x-tochki[C].x)+sqr(tochki[B].y-tochki[C].y));
    CA := sqrt(sqr(tochki[C].x-tochki[A].x)+sqr(tochki[C].y-tochki[A].y));
    p := (AB+BC+CA)/2;
    Sabc := sqrt(p*(p-AB)*(p-BC)*(p-CA));
    assign(t1,'NewFile.txt');
    rewrite(t1);
    for i := A to C do
      write(t1,i,'(',tochki[i].x:0:3,',',tochki[i].y:0:3,') ');
    writeln(t1);
    writeln(t1,'Sabc = ',Sabc:0:3);
    close(t1);
   end;
  close(t);
  readln;
end.

{$APPTYPE CONSOLE}
uses
  SysUtils;