Текстовые файлы. Проблема с вводом данных

[IvanNaymov]

Всем доброго времени суток, надеюсь на вашу доброту и вы мне поможете в следующей задаче:
"При заданных одномерных массивах A, B, C (n-максимальная длина всех) для каждой из n троек вида (A[i],B[i],C[i]) проверить, может ли быть построен треугольник со сторонами A[i],B[i],C[i], при этом подсчитать число треугольников и сумму их периметров." Кроме этого, необходимо использовать два файла - выходной и входной.

program Pr1a4a2b;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
 
Var
  p:real;
  f1, f2: Text;
  name:string[80];
  A, B, C: array[1..50] of real;
  i, k, n: integer;
 
begin
  writeln ('Vvedite imay vhodnogo faila');
  readln (name);
  AssignFile (f1, name);
  {$I-}
      reset (f1);
  {$I+}
  if IOresult=2 then
    writeln ('Takogo fila net')
  else
    begin
      writeln ('Vvedite name vihodnogo fila');
      readln (name);
      AssignFile (f2,name);
      rewrite (f2);
      readln (f1,n);
      for i:=1 to n do
        read(f1, A[i]);
      for i:=1 to n do
        read(f1, B[i]);
      for i:=1 to n do
        read(f1, C[i]);
      k:=0;
      for i:=1 to n do
        if (A[i]<(B[i]+C[i])) and (B[i]<(A[i]+C[i])) and (C[i]<(A[i]+B[i])) then
          begin
            inc(k);
            p:=p+C[i]+A[i]+B[i];
          end;
      writeln (f2, 'Resultati ischesleniy:');
      writeln (f2, 'Kolichestvo vozmoznih treygolnikov: ', k);
      writeln (f2, 'Perimetr=', p:7:2);
      CloseFile (f1);
      CloseFile (f2);
    end;
  readln;
end.

Проблема то состоит в том что, при вводе данных после rewrite (f2) программа ничего не видит. И тем самым я получаю текстовой файл с результатами 0 0.

[саша40]

rewrite - это режим "только запись". Чтение в нем проводить нельзя!

[IvanNaymov]

Сообщение от саша40

rewrite - это режим "только запись". Чтение в нем проводить нельзя!

Чтение идет из файла присвоенного к файловый переменной с помощью reset.

[Stilet]

rewrite - это режим "только запись". Чтение в нем проводить нельзя!

Что, азов не знамо балы выбиваем?

IvanNaymov

Не слушай ты его, он чепуху сморозил.

программа ничего не видит. И тем самым я получаю текстовой файл с результатами 0 0.

Значит не выполняется условие.
Убери условие чисто ради проверки, и посмотри что будет выводиться в файл.

[IvanNaymov]

Так дело то не в этом - я не могу ввести ничего, то есть readln (f1, n) и ввод массивов не работает.

[IvanNaymov]

Все тему можно закрывать - чего то я, просто тупанул, не понял как действует ввод из файла f1.