Записи. Pascal

[dancheg]

1) Информация о клиенте состоит из фамилии, стоимости заказа и месяца заключения договора.Задана информация о группе из 10 клиентов. Определить клиента с самым дорогостоящим заказом заключенным в заданном месяце.
2) Известна информация о сотрудниках фирмы:фамилия,отдел,заработная плата. Данные хранятся в типизированном файле f.dat. Выяснить имеется ли в заданном отделе сотрудник с зарплатой ниже 5000. Помогите пожалуйста!)

[Shift_sk]

)помоему легко)
сделаю через пол часа...собаку ток выгуляю.!

[Stilet]

Информация о клиенте состоит из фамилии, стоимости заказа и месяца заключения договора.

Type
 TClient=record
  FIO:String;
  Cena:real;
  Month:Integer;
 end;

Задана информация о группе из 10 клиентов.

var a:array[1..10] of TClient;i;integer;
begin
...
 for i:=1 to 10 do with a[i] do begin
  Write('ФИО ');readln(FIO);
  Write('Цена ');readln(Cena);
  Write('Месяц ');readln(Month);
 end;
...
end.

Определить клиента с самым дорогостоящим заказом заключенным в заданном месяце.

var y,m,d,dw,j:word;
...
 j:=1;
 GetDate(y,m,d,dw);
 for i:=1 to 10 do with a[i] do begin
  if (Month=m)and(Cena>a[j].Cena) then j:=i;
 end;
 WriteLn('Найдорожче:');
 with a[j] do begin
  Writeln('ФИО ',fio);
  Writeln('Цена ',Cena);
  Writeln('Месяц ',Month);
 end;

Идея понятна?

[Shift_sk]

опередили)

[dancheg]

Спасибо большое)