Здесь показан алгоритм записи в файл, на примере данных о человеке.
Program zap_fail;
uses crt;
Type
bd=record
fam:string[20];
name:string[20];
lastname:string[20];
day:integer;
mounth:integer;
year:integer;
end;
VAR
i,n:integer;
tbl:array[1..25] of bd;
a:string;
b:string;
f:text;
Begin
clrscr;
Assign(f,'zap.txt');
Rewrite(f);
Writeln('Wedite kol-vo zapisey');
Readln(n);
for i:=1 to n do
Begin
writeln('Zapis nomer',i);
writeln('Familia');
readln(tbl[i].fam);
writeln('Imya');
readln(tbl[i].name);
writeln('Otchestvo');
readln(tbl[i].lastname);
writeln('Den mesyats God');
readln(tbl[i].day,tbl[i].mounth,tbl[i].year);
writeln(f,tbl[i].fam,' ',tbl[i].name,' ',tbl[i].lastname,' ',tbl[i].day,' ',tbl[i].mounth,' ',tbl[i].year);
end;
close(f);
end.
