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

uses crt;
type moi_tip=record
FAM: string [15];
IM: char;
OCH: char;
POL: boolean;
LET: byte;
end;
var rec,sor:array [1..4] of moi_tip;
i,j: byte;
tipf: file of moi_tip;
g:boolean;
begin
Assign(tipf,'1.txt');
reset(tipf);
writeln('Отсортированно по возрасту по убыванию:');
writeln('Фамилия':15,'Возраст':10);
while not eof(tipf) do
begin
inc(j);
read (tipf,rec[j]);
end;
repeat
g:=true;
for i:=1 to j-1 do
If rec[i].LET<rec[i+1].LET then
Begin
sor[1]:=rec[i];
rec[i]:=rec[i+1];
rec[i+1]:=sor[1];
g:=false;
End;
Until g=true;
for i:=1 to j do
begin
writeln(rec[i].FAM:15, rec[i].LET:5);
end;
close(tipf);
end.