[BoRoV]

Ты обещал свой код показать. На нём и будем править ошибки.

Вот так записываем первый и второй файл.

Код:

var
  f: file of Stud;
  res: char;
  t: Stud;

begin
  AssignFile(f, 'C:\file1.dat');
  Reset(f);
  Seek(f, filesize(f));
  repeat
    Write('Year : ');
    Readln(t.Year);
    Write('Name : ');
    Readln(t.Name);
    Write(f, t);
    Write('Next (y/n): ');
    readln(res);
  until (res = 'n');
  CloseFile(f);
  Writeln('Ready');
  Readln;
end.