Задача по теме файлы (Delphi)

[Начинающий програм]

Всем доброго времени суток! Помогите пожалуйста с задачей по теме файлы, кто отлично разбирается в этой теме. Буду Вам очень признателен!

Условие задачи.
Создайте файл Студент. Из файла Студент занесите в отдельный файл записи об отличниках. Можно использовать следующие критерии: имя, фамилия, курс, группа, предмет, оценка.

[Arhangel7]

ну и ...
создаем файл студент
type
tStyd = record
FIO:string[50];
Kyrs:integer;
grup:integer;
otlichnik:byte;
end;
читаем данные, смотрим - отличник, записываем )
как - то так

[Начинающий програм]

читаем данные, смотрим - отличник, записываем

Трудность в задаче у меня возникла именно в этом. Помогите пожалуйста это написать кодом. Ни хочу распускать соплю, но мне эту задачу нужно сдать.

[Arhangel7]

для начала - нужна программа на Delphi?
или алг. для чего то?

AssignFile(var F; FileName: string) - связывает файловую переменную F и файл с именем FileName.

Reset(var F[: File; RecSize: word]) - открывает существующий файл. При открытии нетипизированного файла RecSize задает размер элемента файла.

Rewrite(var F[: File; RecSize: word]) - создает и открывает новый файл.

Read(F,v1[,v2,…vn]) - чтение значений переменных начиная с текущей позиции для типизированных файлов и строк для текстовых.

Write(F,v1[,v2,…vn]) - запись значений переменных начиная с текущей позиции для типизированных файлов и строк для текстовых.

CloseFile(F) - закрывает ранее открытый файл.

Seek(var F; NumRec: Longint) - для нетекстового файла устанавливает указатель на элемент с номером NumRec.

FilePos(var F): longint - для нетекстовых файлов возвращает номер текущей позиции. Отсчет ведется от нуля.

FileSize(var F): longint - для нетекстовых файлов возвращает количество компонентов в файле.

Eoln(var F: TextFile): boolean - возвращает True, если достигнут конец строки.

Eof(var F) ): boolean - возвращает True, если достигнут конец файла.

SeekEoln(var F: TextFile): boolean – возвращает True, если пройден последний значимый символ в строке или файле, отличный от пробела или знака табуляции.

SeekEof(var F: TextFile): boolean - то же, что и SeekEoln, но для всего файла.

[Начинающий програм]

Попробую щас написать. Спасибо большое!

Что-то не так в этой процедуре

procedure View_file(var f:tfile; var name:string);      
var
  i:integer;
  rec:student;
begin
  for i:=0 to Filesize(f)-1 do                       
    begin
      read(f,rec);                                     
      write('№',i+1,' ');                              
      write_student(rec);                              
    end;
  writeln('Вывод закончен!');
end;

[BDA]

Хм, дело может быть в отсутствующем seek, но по приведенному коду сложно сказать.
Перед for напишите seek(f,0);

[Начинающий програм]

Вот вся программа:

program Project115155k;

{$APPTYPE CONSOLE}

uses
  SysUtils,windows;
type
  Tsession = array[1..10,1..5] of record            
                                  name: string[10];
                                  mark: 1..5;       
                                  end;
  student = record               
            FIO: string[40];     
            curs: 1..5;           
            group: 1..9;         
            results: Tsession;    
           end;
 TFile= file of student ; 
var k:integer;
    fname: string;
    f:TFile;

procedure Read_student(var st:student);       
var
  i,j:integer;                            
begin
  with st do
    begin
      write('Введите ФИО: ');
      readln(FIO);
      write('Введите курс: ');
      readln(curs);
      write('Введите группу: ');
      readln(group);
      writeln('Введите результаты сессий:');
      i:=1;
      repeat
        writeln('Сейссия №',i,': ');
        for j:=1 to 5 do
          begin
            write('Название ',j,'-го экзамена: ');
            readln(results[i,j].name);
            write('Оценка за ',j,'-й экзамен: ');
            readln(results[i,j].mark);
          end;
        inc(i);
      until (i=curs*2+1); 
    end;
  writeln('Ввод закончен!');
end;

procedure write_student(var st:student);          
var
  i,j:integer;
begin
  with st do
    begin
      writeln(FIO,', ',curs,' курс, ',group,' группа.'); 
      for i:=1 to curs*2 do                              
        begin
          write('  Сессия ',i,': ');
          for j:=1 to 5 do
          write(results[i,j].name,': ',results[i,j].Mark,', ');
          writeln;
        end;
    end;
end;

procedure New_file(var f:tfile; var name:string);   
begin
  write('Имя нового файла: ');
  readln(name);
    if fileexists(name) then                          
      begin                                         
        assign(f,name);
        rewrite(f);                                  
        writeln('Файл "',name,'" создан!');
        closefile(f);
      end;
end;

procedure Open_file(var f:tfile; var name:string);      
begin
  write('Имя файла для открытия: ');
  readln(name);                                          
  assignfile(f,name);
  reset(f);                                          
  closefile(f);
  writeln('Файл "',name,'" открыт!');
end;

procedure Add_rec(var f:tfile; var name:string);       
var
  rec:student;
begin
  reset(f);
  seek(f,Filesize(f));                                
  Read_student(rec);                                   
  write(f,rec);                                       
  writeln('Запись добавлена!');                       
  closefile(f)
end;

procedure Task(var f:tfile; var name:string); 
var
  n,i:integer;                               
  rec:student;
  f2:tfile;
  b,c,d:boolean;
  name2:string;
begin
  write('Введите имя файла для результатов: ');
  readln(name2);
  reset(f);                                                  
  assign(f2,name2);
  rewrite(f2);                                              
  writeln('Файл "',name2,'" создан!');
  write('Ищем записи, удовлетворяющие условию... ');
  for n:=0 to Filesize(f)-1 do                               
    begin
      b:=true;
      c:=true;
      i:=1;
      d:=true;                        
      seek(f,n);                                              
      read(f,rec);                                            
      while (i<=5) and d do                                   
        begin
          if (rec.results[rec.curs*2,i].mark<4) then d:=false;   
          inc(i);                                                
        end;
      i:=1;
      if d then                                              
        begin
          while c and (i<=5) do                                   
            begin
              if rec.results[rec.curs*2,i].mark=5 then      
                if b=true then
                  b:=false
                else
                  c:=false;                
                  inc(i);                                               
            end;
          if c then                                               
            begin
              writeln('Найдена запись ',n+1);
              write(f2,rec);                                       
            end;
        end;
    end;
  closefile(f);
  closefile(f2);
end;

begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);                                             
  New_file(f,fname);
  Open_file(f,fname);
  Add_rec(f,fname);
  Task(f,fname);
  View_file(f,fname);
end.

[Начинающий програм]

В связи с тем что в сообщении ни должно быть больше 5000 символов я исключил из кода процедуру в которой у меня ошибка.

[BDA]

Файл не открыт в ошибочной процедуре (нет reset(f)).

[Начинающий програм]

Помогите пожалуйста подкорректировать эту функцию под условие

procedure Task(var f:tfile; var name:string);// процедура которая заносит сведения об отличниках в отдельный файл 
var
  n,i:integer;                               
  rec:student;
  f2:tfile;
  b,c,d:boolean;
  name2:string;
begin
  write('Введите имя файла для результатов: ');
  readln(name2);
  reset(f);                                                  
  assign(f2,name2);
  rewrite(f2);                                              
  writeln('Файл "',name2,'" создан!');
  write('Ищем записи, удовлетворяющие условию... ');
  for n:=0 to Filesize(f)-1 do                               
    begin
      b:=true;
      c:=true;
      i:=1;
      d:=true;                        
      seek(f,n);                                              
      read(f,rec);                                            
      while (i<=5) and d do                                   
        begin
          if (rec.results[rec.curs*2,i].mark<4) then d:=false;   
          inc(i);                                                
        end;
      i:=1;
      if d then                                              
        begin
          while c and (i<=5) do                                   
            begin
              if rec.results[rec.curs*2,i].mark=5 then      
                if b=true then
                  b:=false
                else
                  c:=false;                
                  inc(i);                                               
            end;
          if c then                                               
            begin
              writeln('Найдена запись ',n+1);
              write(f2,rec);                                       
            end;
        end;
    end;
  closefile(f);
  closefile(f2);
end;