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

[Гость_Tosha]

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


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



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

[Guest]

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

Код

Procedure sortirovka ( var mass: worker; razmer: word);
Var
    i,m,c: word;
Begin
    for m:= razmer downto 2 do
    begin
        for i:=1 to m-1 do
        begin
           if
           mass[i].zarplata>mass[i+1].zarplata then
           begin
               c:= mass[i];
               mass[i]:= mass[i+1];
               mass[i+1]:=c
           end;
        end;
    end;
end;

А в остальном программа работает нормально.