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

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const nmax=30;
type tMag=record
Name:string[15];
Year:1900..2014;
Number:1..1000;
TimesAYear:1..52;
end;
tMag1=array[1..nmax]of tMag;
 
tmas=array[1..nmax]of real;
 
var
i,n:byte;
permag:tMag1;
 
function Rus(S: String): String;
var
i: byte;
begin
Result := '';
for i := 1 to Length(S) do
case S[i] of
'А'..'п': Result := Result + Chr(Ord(S[i]) - 64);
'р'..'я': Result := Result + Chr(Ord(S[i]) - 16);
'Ё': Result := Result + Chr(240);
'ё': Result := Result + Chr(241);
else
Result := Result + S[i];
end;
end;
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;
 
begin
writeln(rus('введите число журналов '));
readln(n);
writeln(rus('запись информации о журналах '));
writeln;
for i:=1 to n do
begin
//Ввод данных
writeln(rus('введите название '));
readln(permag[i].Name);
writeln(rus('введите год выпуска '));
readln(permag[i].Year);
writeln(rus('Номер журнала '));
readln(permag[i].Number);
writeln(rus('Периодичность '));
readln(permag[i].TimesAYear);
end;
writeln;
write(rus('Название Год выпуска Номер Периодичность'));
writeln;
for i:=1 to n do
begin
write(' ',permag[i].Name,' ':4,permag[i].Year,' ':8, permag[i].Number, ' ':7,permag[i].TimesAYear);
writeln;
end ;
obrdan(permag, n, permag);
readln;
end.