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

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.

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.