Работа с составными типами данных в системе Turbo Pascal. Батхин А.Б - 28 стр.

         {Подготовка файла к чтению} assign(f1,n);
               {$I-}        {Отключить контроль ошибок ввода-вывода} reset(f1);
               {$I+}        {Включить контроль ошибок ввода-вывода} if IOresult <> 0 then
               begin
                        writeln('файла с именем ',n,' не существует'); halt
               end;
         {Подготовка файла к записи} assign(f2,m);
               rewrite(f2);
                   {Чтение элементов массива из файла} while not eof(f1) and (i <= n) do
                   begin
                        read(f1,vector[i]);
                        inc(i)
                   end;
               close(f1);
               {Обработка элементов массива VECTOR} for i:=1 to n do
                   begin
                        s[i]:=vector[i]/vector[n-i+1];
               {Вывод результата на экран} write(s[i]:8:3);
                   {Вывод результата в файл} writeln(f2,s[i])
                   end;
               close(f2);
         end.
Пример 2 (работа с типизированным файлом: чтение всех элементов файла PROBA.DTA
и вывод их на экран)
      program red-sim;
         type
               dat = record
                   day:1..31;
                   month:1..12;
                   year:1963..1992
               end;
         var
               gr : dat;
               fdat : file of dat;
         begin
               assign (fdat,"A:PROBA.DTA");
               reset (fdat);
               repeat
                   with gr do readln(fdat,day,month,year);
                   with gr do
                   writeln('День рождения: ',day,'.',month,'.',year,' г.'); until eof(fdat);