По заданным значениям расценок SА, SВ, SС за выполненную работу по сборке единицы изделия категорий А, В, С соответственно,выдать на печать информацию - Turbo Pascal

Формулировка задачи:

1) Создать файл, содержащий сведения о количестве изделий категории А, В, С, собранных рабочим за месяц. Структура записи имеет поля: фамилия сборщика, наименование цеха, количество изделий по категориям, собранных рабочим за месяц. Количество записей не менее 10. Текст программы(спасибо форумчанину Kodzaev))):

program lr91;
Uses crt;
Type
book=Record
fam: String;
ceh: String;
a: Integer;
b: Integer;
c: Integer;
end;
Var
t: Text;
i,n: Integer;
x: Array[1..100] of book;
Begin
Clrscr;
Repeat
Writeln('Vvedite kolichistvo zapisei (ne menee 10): ');
Readln(n);
Until n>=2;
For i:=1 to n do
begin
 Write('Vvedite famil sborshika: '); Readln(x[i].fam);
 Write('Vvedite naimenovanie ceha: '); Readln(x[i].ceh);
 Write('Vvedite kolichestvo izdelii kategorii A, sobrannih rabochim za mesac: '); Readln(x[i].a);
 Write('Vvedite kolichestvo izdelii kategorii B, sobrannih rabochim za mesac: '); Readln(x[i].b);
 Write('Vvedite kolichestvo izdelii kategorii C, sobrannih rabochim za mesac: '); Readln(x[i].c);
end;
Assign(t,'File.txt');
Rewrite(t);
For i:=1 to n do
Writeln(t,'Sborshik ',x[i].fam,' cobral ',x[i].a+x[i].b+x[i].c,' detalei (', x[i].ceh,' ceh)');
Close(t);
Readln
End.

2) Считая заданными значения расценок SА, SВ, SС за выполненную работу по сборке единицы изделия категорий А, В, С соответственно, выдать на печать следующую информацию: общее количество изделий категорий А, В, С, собранных рабочим цеха Х; ведомость заработной платы рабояим цеха Х; средний размер заработной платы работников этого цеха.??????

Решение задачи: «По заданным значениям расценок SА, SВ, SС за выполненную работу по сборке единицы изделия категорий А, В, С соответственно,выдать на печать информацию»

Листинг программы

Uses crt;
Type
book=Record
a: Integer;
b: Integer;
c: Integer;
fam: String;
ceh: String;
end;
Var
sa,sb,sc,i,n,k,sum: Integer;
str: String;
x: Array[1..100] of book;
Begin
Clrscr;
Writeln('Количество записей: '); Readln(n);
Writeln('Значения расценок SA,SB,SC: '); Readln(sa,sb,sc);
For i:=1 to n do
begin
 Write('Введите фамилию рабочего: '); Readln(x[i].fam);
 Write('Введите наименование цеха: '); Readln(x[i].ceh);
 Write('Количество изделий A: '); Readln(x[i].a);
 Write('Количество изделий B: '); Readln(x[i].b);
 Write('Количество изделий C: '); Readln(x[i].c);
end;
Writeln('Введите наименование цеха, по которому нужно выдать информацию: '); Readln(str);
Writeln('Работники этого цеха:');
For i:=1 to n do
If x[i].ceh=str Then begin
 Inc(k);
 Writeln(x[i].fam);
 sum:=sum+(sa*x[i].a+sb*x[i].b+sc*x[i].c);
 end;
Writeln('Зарплата для работников цеха ',str,' =',sum);
Writeln('Средняя зарплата= ',sum/k:2:2);
Readln
End.

Объяснение кода листинга программы

Инициализация переменной n для хранения количества записей.
Ввод значений расценок sa, sb, sc для каждой записи.
Инициализация переменной i для цикла по записям.
Чтение фамилий рабочих и наименований цехов для каждой записи.
Инициализация переменной k для подсчета количества работников цеха.
Проверка условия, что введенный цех совпадает с цехом из записи.
Если условие выполняется, то увеличивается значение переменной k, суммируются значения расценок для изделий A, B, C и выводится фамилия рабочего.
После завершения цикла выводится общая зарплата для работников цеха и средняя зарплата.
Выводится сообщение о завершении ввода данных и предлагается нажать любую клавишу для выхода из программы.