Создать файл студент. Из файла студент занесите в отдельный файл записи об отличниках

[MrDeura]

Ребят выручайте,очень нужно) Пожалуйста)

Сообщение от MrDeura

Ребят выручайте,очень нужно) Пожалуйста)

Язык Pascal

[Stilet]

type
 ts=record name:string; ball:integer; end;
var
 s:ts; f,q:file of ts;
begin
 assign(f,'f'); rewrite(f);
  s.name:='Он';  s.ball:=1; write(f,s);
  s.name:='Она'; s.ball:=1; write(f,s);
  s.name:='Оно'; s.ball:=1; write(f,s);
 Reset(f);
 assign(e,'e'); rewrite(e);
 while not eof(f) do begin
  Read(f,s);
  if d.ball=5 then write(e,s);
 end;
 close(f); Close(e);
end.

Годится идея?

[MrDeura]

Ооо, отлично) Спасибо) Теперь понял)