запись,чтение с файла Опции

[Xrymz]

есть 2 проги 1 записывает в файл 2-я читает
1 вроде пашет...

uses crt;
const
   n = 7;
type

   TRec = record
   pyhkt,tip:string [31];
   nomer:integer; {o4enka}
   end;

   TBase = array [1..n] of TRec; {6a3a dannix}

   TFile = file of TBase; {Fail}

var
b:TBase;
F:TFile;
i,j : byte;

begin
   clrscr;
   assign(f,'TEST.txt');
   rewrite(f); {otkriv fail dlja zapisi}
   writeln('BBog 6a3bI gaHHbIX ');
   for i := 1 to n do
    with b[i] do begin
       write('Ha3BaHue /7yHKTa Ha3Ha4eHu9| PeuCa : '); readln(pyhkt);
       write('Homep PeuCa : '); readln(nomer);
       write('Tu/7 CaMoJIeTa : ');        readln(tip);
       end;
       writeln;
   write(f, b); {3apis 6azzi v fail}
end.

а вот 2-я читать нехочет немогу понять почему

program AEROFLOT;

uses crt;
const
   n = 7;
type

   TRec = record
   pyhkt,tip:string [31]; 
   nomer:integer; 
   end;

   TBase = array [1..n] of TRec; {6a3a dannix}

   TFile = file of TBase; {Fail}

var
b:TBase;
F:TFile;
i,j : byte;

begin
   clrscr;
   assign(f,'TEST.txt');
   reset(f); {otkrit fail dlja zapisi}
   writeln('BBbIBog 6a3bI gaHHbIX ');
   for i := 1 to n do
    with b[i] do begin
       writeln('/7yHkT : ',i);
       writeln('Tu/7 : ',i);
       writeln('Homep PeuCa : ',i);
       writeln;
       end;
       writeln;
close(f);
readln;
end.

[Renbo]

почитай тут для начала что ли.

Для начала ты не правильно заносишь в файл свою инфу. У тебя туда только последняя запись заносится из 7.

А там где выводишь на экран - так там вообще нету вывода

for i := 1 to n do
       writeln('/7yHkT : ',i);
       writeln('Tu/7 : ',i);
       writeln('Homep PeuCa : ',i);
       writeln;

это вообще не имеет отношения к файлу. Если ты хотела эти поля вывести, то тебе сперва надо читать запись из файла а потом выводить её поля...