Помогите найти проблему вкоде

[Fly090]

program Z1;
var
x1,x2,x3,y1,y2,y3,a,b,c,max,min1,min2:real;
w:integer;
f:text;
begin
   assign(f,'D:\Games\Programming\TP7\Files\F.txt');
   reset(f);
   readln(f,x1,y1);
   readln(f,x2,y2);
   readln(f,x3,y3);
   a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
   b:=sqrt(sqr(x2-x3)+sqr(y2-y3));
   c:=sqrt(sqr(x1-x3)+sqr(y1-y3));
   if (a>b) and (a>c) then
   begin
   max:=a;
   min1:=b;
   min2:=c
   end
   else
    if (c>a) and (c>b) then
    begin
    max:=c;
    min1:=a;
    min2:=b
    end
    else
     if (b>a) and (b>c) then
     begin
     max:=b;
     min1:=a;
     min2:=c
     end;
   close(f);
   assign(f,'D:\Games\Programming\TP7\Files\F1.txt');
   rewrite(f);

   if sqr(max)=sqr(min1)+sqr(min2) then w:=1 else w:=0;
   write(f,w);
   close(f);
   readln
end.

error 3: Path not found



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[type_Oleg]

А что непонятно? Путь к файлу не найден
Есть у вас на диске D этот католог - \Games\Programming\TP7\ Files ?

[Fly090]

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

А что непонятно? Путь к файлу не найден
Есть у вас на диске D этот католог - \Games\Programming\TP7\ Files ?

так точно, есть

[Serge_Bliznykov]

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

так точно, есть

для Вас есть, для Turbo Pascal - нет.

Дело в том, что TurboPascal - это DOSовская программа.
А MS DOS не понимает длинных путей, только короткие, формата 8.3.
Это касается, разумеется, не только непосредственно имени файла, но и имён всех вышестоящих каталогов.

поэтому, у Вас есть следующие варианты решения
1-й. задать в программе короткий путь к данному файлу.
он будет выглядеть примерно так:
D:\Games\PROGRA~1\TP7\Files\F.txt

2-й вариант. переименовать путь к файлу так, чтобы все имена укладывалить в формат 8.3. например, Programming заменить на Proging

3-й. перейти на более современный компилятор. Например, взять Free Pascal или Delphi...