Запись (Record), Ошибка при выводе. Опции

[Tan]

Написал процедурку, которая из файла переписывает в файл чётные записи, спецификация :

type STR = strin[40];
type MyRec= record
      field1 : STR;
      field2 : STR;
      end;
type Myfiletype = file of MyRec;

Проблема в том, что на экран и файл ничего не выводиться, может кто заметит что и как? Файл с которого считываем точно содержит записи. Выручайте!

procedure Pair  ( var fff : MyFiletype; var NewFile : MyFiletype  ;var Fileopen: boolean);
var
            i : integer;
  NewFileName : String;
         rec  : MyRec;
begin
 if (FileOpen=False) then
      begin
        WriteLntext(' Файл не открыт ; Действие нельзя выполнить');
        exit;
      end;
  writeln ('Введите название файда в который пишем чётные записи ');
  readln (NewFileName);
 i:=-1;
  {I-}
  assign (NewFile,NewFileName + '.txt');
  reset (fff);
  rewrite (NewFile);
  {$I+}
  If IOResult = 0 then writeln ('файл ',NewFileName, ' успешно создан');
   seek (fff,i);
 while (eof(fff) <> True) do
begin
inc (i);
read (fff,rec);
if i mod 2 = 0 then
   begin
      write (NewFile,rec);
         writeln (rec.field1[i],' ',rec.field2[i]);
    end;
end;
seek(fff,0);
{$I-}
close (fff);
close (NewFile);
{$I+}
end;

Сообщение отредактировано: Tan - 16.03.2007 19:14