Создание текстового файла и чтение данных из файла

program vtorai_chast;
uses crt;
type
 wed=record
  index: string[10];
  fio: string[30];
  exz1: byte;
  exz2: byte;
  exz3: byte;
  exz4: byte;
  exz5: byte;
  rab: byte;
 end;
const
 kg=3;
 ks=10;
var
 fstud: File of wed;
 s: wed;
 i,j: integer;
 fillname: string[20];
begin
clrscr;
 write('Vvedite Imi faila (obrazec: stud.txt): ');
  readln(fillname);
 assign(fstud,fillname);
 rewrite(fstud);
 for i:=1 to kg do
  begin
   write('Vvedite index ',i,' gruppi: ');
    readln(s.index);
   for j:=1 to ks do
    begin
     writeln(' Vvedite dannie o ',j,' studente');
     write('F.I.O.: ');
      readln(s.fio);
     write('vvedite ocenky za 1 exzamen: ');
      readln(s.exz1);
     write('vvedite ocenky za 2 exzamen: ');
      readln(s.exz2);
     write('vvedite ocenky za 3 exzamen: ');
      readln(s.exz3);
     write('vvedite ocenky za 4 exzamen: ');
      readln(s.exz4);
     write('vvedite ocenky za 5 exzamen: ');
      readln(s.exz5);
     write(' Vvedite priznak ychastii v obhestvennoi rabote: ');
      readln(s.rab);
     write(fstud,s);
    end;
  end;
writeln('formirovanie faila zakoncheno');
close(fstud);
readkey;
end.

program vtorai_chast;
uses crt;
type
 wed=record
  index: string[10];
  fio: string[30];
  exz1: byte;
  exz2: byte;
  exz3: byte;
  exz4: byte;
  exz5: byte;
  rab: byte;
  step: integer;
 end;
const
 kg=3;
 ks=10;
var
 fstud: File of wed;
 s: wed;
 i,j: integer;
 fillname: string[20];
begin
clrscr;
 write('Vvedite Imi faila (obrazec: stud.txt): ');
  readln(fillname);
 assign(fstud,fillname);
 reset(fstud);
clrscr;
while not eof(fstud) do
begin
 read(fstud,s);
 writeln('ctudent: ',s.fio);
end;
 {
 while not eof(fstud) do
 begin
      writeln(' Student: ',j);
      write('F.I.O.: ');
      readln(s.fio);
      write('Ocenka za 1 exzamen: ');
      readln(s.exz1);
      write('Ocenka za 2 exzamen: ');
      readln(s.exz2);
      write('Ocenka za 3 exzamen: ');
      readln(s.exz3);
      write('Ocenka za 4 exzamen: ');
      readln(s.exz4);
      write('Ocenka za 5 exzamen: ');
      readln(s.exz5);
      write('Ychastii v obhestvennoi rabote: ');
      readln(s.rab);
 
end;
}
 writeln('formirovanie faila zakoncheno');
 
close(fstud);
readkey;
end.

uses crt;
type
 student = record
    name : string[10];                  // имя
    patronymic : string[15];            // отчество
    last_name : string [20];            // фамилия
    date : string[10];                  // дата пождения
    summa : word;                       // размер стипендии
 end;
 Tfile = file of student;
 
procedure open_file(var f:Tfile);       // чтение из  файла
var
  dan : student;
  err,c : integer;
 
 name : string;
  begin
    repeat
      clrscr;
      textcolor(15);
      writeln('укажите полное имя файла');
      readln(name);
      {$I-}
         assign(f,name);
      {$I+}
      {$I-}
        reset(f);
      {$I+}
      err:=ioresult;
      if err<>0 then
        begin
          writeln('файл с именем ',name, 'не найден');
          writeln('Вы хотите продолжить? 1 - да (повторный ввод имени файла), 2 - нет(возврат в главное меню)');
          readln(c);
        end
      else
        begin
         writeln('файл  ',name,' открыт успешно ');
        end;
    until (err=0) or (c = 2);
 
   while (not Eof(f)) do
     begin
       read(f,dan);
 
       writeln ('Имя: ',dan.name);
       writeln ('Отчество: ',dan.patronymic);
       writeln ('Фамилия: ',dan.last_name);
       writeln ('Дата рождения: ',dan.date);
       writeln ('Размер стипендии: ',dan.summa);
       writeln;
     end;
     readkey;
     close(f);
  end;
//********************************************************************
procedure save_file(var f:Tfile); //сохранение в файл
var
t:char;
dan :student;
name:string;
begin
  writeln('Укажите полное имя файла  ');
  readln(name);
  assign(f,name);
  rewrite(f);
  repeat
      Writeln ('Введите данные о студенте:');
      write ('Имя: ');
      readln(dan.name);
      write ('Отчество: ');
      readln(dan.patronymic);
      write ('Фамилия: ');
      readln(dan.last_name);
      write ('Дата рождения:  ');
      readln (dan.date);
      write ('Размер стипендии: ');
      readln (dan.summa);
      Writeln;
      write(f,dan);
      writeln ('Добавить ещё запись D-ДА / N-Нет ?');
      readln (t);
  until (t='N') or (t='n') or (t='Н') or (t='н') ;
end;