Составить файл записей для студентов

[Tory1106]

Составить файл записей для студентов предусмотрев поля:ФИО и годовой доход.Найти студента с max доходом.нужна только процедура.язык Паскаль

[fbus]

стучись в аську, поищу сейчас, где-то был исходник подобный

[Базиля]

нужна только процедура

может что-нибудь еще?

[Tory1106]

да нужна только процедура или функция,без ввода и вывода

[Tory1106]

Извините аськи нет,можете на mail?
vika_s_1993@mail.ru

[Roof]

написал на e-mail

[Roof]

Ох, извиняюсь. Перепутал раздел с фрилансом.
Вот мой вариант решения:

program records;

uses crt;
type MyRec = record
  FIO: string[50];
  dohod: integer;
end;
var
F: file of MyRec;
Rec: MyRec;
Name: string[10];

Procedure VvodZap(Num: Integer);
Begin
  with Rec do
    begin
      writeln('Vvedite dannie ', Num, ' - go studenta');
      writeln('Vvedite FIO');
      readln(FIO);
      write('Vvedite dohod');
      readln(dohod);
      write(F, Rec);
    end;
End;

Procedure FileVvod;
Var
  i, count : Integer;
Begin
  rewrite(F);
  write('Vvedite koli4estvo studentov');
  readln(count);
  for i:=1 to count do
    VvodZap(i);
  close(F);
End;

procedure FindStudent;
var
 i: Integer;
 RecMax: MyRec;
begin
 RecMax.dohod := 0;
 reset(F);
 While not Eof (F) do
 begin
   read(F, Rec);
   if Rec.dohod >RecMax.dohod then
   begin
     RecMax.dohod := Rec.dohod;
     RecMax.FIO := Rec.FIO;
   end;
 end;
 close(F);
 Writeln('FIO studenta c max dohodom - ', RecMax.FIO);
 writeln('Ego dohod - ', RecMax.dohod);
end;

begin
  ClrScr;
  writeln('Vvedite imya fayla');
  readln(Name);
  assign(F, Name);
  FileVvod;
  FindStudent;
  readln;
end.

[Tory1106]

Roof,спасибо огромное)))