Все лабораторные работы по паскалю / 6 лаб. Файлы типизированные / Program1

uses crt;
const K=3;
type moi_tip=record
FAM: string [15];
IM: char;
OCH: char;
POL: boolean;
LET: byte;
end;
var rec: array [1..K] of moi_tip;
i: byte;
j: char;
tipf: file of moi_tip;
begin
Assign(tipf,'1.txt');
Rewrite(tipf);
for i:=1 to K do
begin
writeln('Введите данные для ',i,'-го человека:');
write('Фамилия: '); readln (rec[i].FAM);
write('Инициалы: '); readln (rec[i].IM,rec[i].OCH);
write('ПОЛ: '); readln (j);
if j='М'
then rec[i].POL:=true
else rec[i].POL:=false;
write('Возраст: '); readln (rec[i].LET);
end;
for i:=1 to K do
write(tipf,rec[i]);
close(tipf);
end.