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.