Модуль тпу - нет доступа к переменным в приведенном коде

interface
 
uses qqq;
 
function priv(t: trg):boolean; //существование треуг.
implementation
 
function priv(t: trg): boolean;
 
begin
  a:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)+(z2-z1)*(z2-z1));
 b:=sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2)+(z3-z2)*(z3-z2));
 c:=sqrt((x1-x3)*(x1-x3)+(y1-y3)*(y1-y3)+(z1-z3)*(z1-z3));
 
priv:=(a + b > c) and (a + c > b) and (b + c > a);
if priv(a, b, c) then writeln('Треугольник с такими сторонами существует')
  else writeln('Треугольника с такими сторонами не существует');
  writeln
end;
end.

Unit qqq;
 
Interface
 
uses crt;
type
trg=record
     x1,y1,x2,y2,x3,y3:real; //координаты
     s, p: real; //площадь, периметр
     a, b, c: real;
end;
 
function prin(t:trg):boolean; {принадлежность треугольника кругу}
 
Implementation
 
function prin(t:trg):boolean;
begin
 prin:=((sqr(t.x1)+sqr(t.y1))<1)
   and ((sqr(t.x2)+sqr(t.y2))<1)
   and ((sqr(t.x3)+sqr(t.y3))<1)
end;
 
End.

program Osnova;
 
uses
  crt, qqq, Ploshad, Perimetr;
 
var
  f1, f2: file of trg;
  z: trg;
  n, i, k, kl: integer;
  a, b: real;
 
begin
  clrscr;
  randomize;
  assign(f1, 'input');
  rewrite(f1);
  assign(f2, 'output');
  rewrite(f2);
  writeln('Введите число треугольников:');
  readln(n);
  for i := 1 to n do
  begin
    z.x1 := -1.2 + 2.4 * random;
    z.y1 := -1.2 + 2.4 * random;
    z.x2 := -1.2 + 2.4 * random;
    z.y2 := -1.2 + 2.4 * random;
    z.x3 := -1.2 + 2.4 * random;
    z.y3 := -1.2 + 2.4 * random;
    write(f1, z)
  end;
  writeln('Содержание файла F1');
  seek(f1, 0);
  k := 0;
  kl := 0;
  while not eof(f1) do
  begin
    read(f1, z);
    k := k + 1;
    writeln(k:2, ')   A (', z.x1:5:2, ' ', z.y1:5:2, ')   B (', z.x2:5:2, ' ', z.y2:5:2, ')'
                 '    C (', z.x3:5:2, ' ', z.y3:5:2, ')');
    if k mod 20 = 0 then
    begin
      writeLn('Press Enter');
      readln
    end;
    if prin(z) then
    begin
      kl := 1;
      z.s := plos(z);
      z.p := perm(z);
      write(f2, z);
    end;
  end;
  close(f1);
  if kl = 0 then
  begin
    writeLn('Нет треугольников, целиком лежащих в данном круге');
    close(f2);
    exit
  end;
  repeat
    writeln('Введите интервал для поиска a < b');
    readln(a, b);
  until a < b;
  seek(f2, 0);
  writeln('Содержание файла F2');
  k := 0;
  kl := 0;
  while not eof(f2) do
  begin
    read(f2, z);
    k := k + 1;
    writeln(k:2, ')   A (', z.x1:5:2, ' ', z.y1:5:2, ')   B (', z.x2:5:2, ' ', z.y2:5:2, ')'
                 '    C (', z.x3:5:2, ' ', z.y3:5:2, ')');  
    writeln( 'S = ', z.s:5:2, '   P = ', z.p:5:2);
    if k mod 20 = 0 then
    begin
      writeLn('Press Enter');
      readln
    end;
    if ((z.s >= a) and (z.s <= b)) or ((z.p >= a) and (z.p <= b)) then kl := kl + 1;
  end;
  writeln('Количество треугольников, у которых площадь или периметр');
  writeln('попадают в заданный интервал=', kl);
  close(f2);
end.

function priv(t: trg): boolean;
begin
with t do
 begin
  a:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)+(z2-z1)*(z2-z1));
  b:=sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2)+(z3-z2)*(z3-z2));
  c:=sqrt((x1-x3)*(x1-x3)+(y1-y3)*(y1-y3)+(z1-z3)*(z1-z3));
  priv:=(a + b > c) and (a + c > b) and (b + c > a);
 end;

unit Prv;
interface
 
uses qqq;
 
 
function priv(t: trg):boolean; //существование треуг.
 
implementation
 
function priv(t: trg): boolean;
 
begin
 t.a:=sqrt((t.x2-t.x1)*(t.x2-t.x1)+(t.y2-t.y1)*(t.y2-t.y1));
 t.b:=sqrt((t.x3-t.x2)*(t.x3-t.x2)+(t.y3-t.y2)*(t.y3-t.y2));
 t.c:=sqrt((t.x1-t.x3)*(t.x1-t.x3)+(t.y1-t.y3)*(t.y1-t.y3));
 
priv:=(t.a +t.b > t.c) and (t.a + t.c > t.b) and (t.b + t.c > t.a);
if priv(t.a, t.b, t.c) then writeln('Треугольник с такими сторонами существует')
  else writeln('Треугольника с такими сторонами не существует');
  writeln
end;
end.

if priv(t.a, t.b, t.c) then
 writeln('Треугольник с такими сторонами существует')

if priv(t) then

program Osnova;
 
uses
  crt, qqq, Ploshad, Perimetr, Prv;
 
var
  f1, f2: file of trg;
  z: trg;
  n, i, k, kl: integer;
  a, b: real;
 
begin
  clrscr;
  randomize;
  assign(f1, 'input');
  rewrite(f1);
  assign(f2, 'output');
  rewrite(f2);
  writeln('Введите число треугольников:');
  readln(n);
  for i := 1 to n do
  begin
    z.x1 := -1.2 + 2.4 * random;
    z.y1 := -1.2 + 2.4 * random;
    z.x2 := -1.2 + 2.4 * random;
    z.y2 := -1.2 + 2.4 * random;
    z.x3 := -1.2 + 2.4 * random;
    z.y3 := -1.2 + 2.4 * random;
    write(f1, z)
  end;
if priv(t) then writeln('Треугольник с такими сторонами существует')
  else writeln('Треугольника с такими сторонами не существует');
  writeln
end;
  writeln('Содержание файла F1');
  seek(f1, 0);
  k := 0;
  kl := 0;
  while not eof(f1) do

for i := 1 to n do
  begin
    repeat
    z.x1 := -1.2 + 2.4 * random;
    z.y1 := -1.2 + 2.4 * random;
    z.x2 := -1.2 + 2.4 * random;
    z.y2 := -1.2 + 2.4 * random;
    z.x3 := -1.2 + 2.4 * random;
    z.y3 := -1.2 + 2.4 * random;
    until priv(t);//если не вырожденный
   write(f1, z) //пишем его в файл
  end;