Как работать с типизированными файлами? - Delphi - Ответ 5629961

procedure obrdan (var x:tMag1;  nx:integer; out y:tMag1);
var
max, imax, ix, jx:integer;
l:1..52;
buf:string[15];
 
begin
//наибольшая переодичность
max:=permag[1].TimesAYear; imax:=1 ;
for ix := 2 to n do
   begin
    if permag[ix].TimesAYear > max then begin max:=permag[ix].TimesAYear; imax:=ix  ;
   end;
   end;
writeln(rus('Журнал с наибольшей периодичностью'));
writeln;
writeln(permag[imax].Name, ' ':2, '(',max, ' ':1, rus('раз(а) в год)')) ;
//заданная переодичность
writeln(rus('Введите периодичность'));
readln(l);
writeln;
writeln(rus('Журналы с заданной периодичностью'));
writeln;
for ix := 1 to n do
  begin
    if permag[ix].TimesAYear=l then
    writeln(permag[ix].Name);
  end;
//сортировка по алфавиту(пузырек)
for ix:=1 to n-1 do
for jx:=1 to n-1 do
if permag[jx+1].Name<permag[jx].Name then
      begin
        buf:=permag[jx].Name;
        permag[jx].Name:=permag[jx+1].Name;
        permag[jx+1].Name:=buf;
      end;
writeln;
writeln(rus('Список журналов,отсортированный по алфавиту'));
   for ix:=1 to n do
     writeln(permag[ix].Name,' ':3);
     writeln;
end;