Расчет заработной платы Опции

[Гость_Tosha]

Помогите пожалуйста с задачей, а то я совсем почти ничего не понимаю.


Разработать алгоритм и программу расчета заработной платы работников.
Трудового коллектива при условии , что ежемесячная сумма зарплаты про-
порциональна фактическому рабочему времени каждого члена коллектива ,
а также выполнить сортировку полученных результатов.
Указания: 1) решить с использованием процедур и функций.
2) в решении использовать тип данных ЗАПИСЬ с полями :
- порядковый номер ,
- Ф.И.О. ,
- число отработанных часов за месяц,
- часовая расценка,
- зарплата за месяц.



Буду благодарен за любую помощь. Заранее спасибо.

[AlaRic]

type Worker=record
  TabNum:word;
  FIO:string;
  Hour,RubPerHour,Zarplata:integer;
end;

Вещественный тип в зарплате и часах мне кажется ни к чему!

Создать массив A:array[1..100] of Worker и сортировать по ключу A[i].Zarplata.
Ну и написать процедуру ввода с клавиатуры имени нового сотрудника и всех его полей.

А вообще какая должна быть сортировка? По возрастанию или убыванию? По зарплате?

procedure plus;
begin
  writeln('ВВести кол-во добавляемых сотрудников');
  readln(n);
  writeln('Ввести данные сотрудников: ');
  for i:=1 to n do begin
    writeln('FIO');read(a[ i ].FIO);
    writeln('Tab);read(a[ i ].TabNum);
    writeln('Hour');read(a[ i ].Hour);
    writeln('RubPerHour');read(a[ i ].RubPerHour);
    writeln('Zarplata');read(a[ i ].Zarplata);
  end;

Что-то типа такого!