Не проходит чтение и вывод на экран из файла.

[Анастасия1]

Задача: Необходимо создать файл, содержащий записи о студентах: Ф.И.О., номер зачетной книжки и год рождения. Затем вывести эти записи на экран.
В файл запись проходит, а вот обратно на экран не выводит. Подскажите пожалуйста, в чем здесь ошибка?

Type
    TRec=record
    f,i,o:string[20];
    z,bd:integer;
end;
Var
   fst:file of TRec;
   r:TRec;
   j,n:integer;
   mas:array[1..100] of TRec;

 Procedure  readfromcons;
    Var j:integer;
      begin
          for j:=1 to n do
           begin
             writeln (' Введите фамилию -  '); readln (r.f);
             writeln (' Введите имя -  '); readln(r.i);
             writeln (' Введите отчество -  '); readln (r.o);
             writeln (' Введите номер зачетки -  '); readln(r.z);
             writeln (' Введите дату рождения -  '); readln(r.bd);
             mas[j]:=r;
           end;
      end;
 Procedure  savetofile;
    Var j:integer;
      begin
          assign(fst, 'fst.bin');
          rewrite(fst);
          for j:=1 to n do
            write (fst,mas[j]);
          close(fst);
      end;
 Procedure  readfromfile;
    Var j:integer;
      begin
          assign(fst, 'fst.bin');
          reset(fst);
          j:=1;
          while (not eof (fst)) do
           begin
             read (fst, mas[j]);
             inc(j);
           end;
          close(fst);
      end;
 Procedure  writetocons;
    Var j:integer;
      begin
          assign(fst, 'fst.bin');
          reset (fst);
          j:=1;
          while (not eof (fst)) do
           begin
             write (fst, mas[j]);
             inc(j);
           end;
          close(fst);
      end;
Begin
     writeln('введите количество студентов');
     readln(n);
     readfromcons;
     savetofile;
     readfromfile;
     writetocons;

End.

[Alex11223]

на экран не выводит

А где тут вывод на экран?

[Анастасия1]

Procedure  writetocons;
    Var j:integer;
      begin
          assign(fst, 'fst.bin');
          reset (fst);
          j:=1;
          while (not eof (fst)) do
           begin
             write (fst, mas[j]);
             inc(j);
           end;

это у меня процедура вывода

[WorldMaster]

Сообщение от Анастасия1

Procedure  writetocons;
    Var j:integer;
      begin
          assign(fst, 'fst.bin');
          reset (fst);
          j:=1;
          while (not eof (fst)) do
           begin
             write (fst, mas[j]);
             inc(j);
           end;

это у меня процедура вывода

А разве не надо считать из файла командой Read ?
Вы пишете в поток fst то что у вас лежит в массиве mas[j].
Или я не прав?

[Анастасия1]

Правы, спасибо.