Задача на двумерные массивы
 

Доброго времени суток! Не могли бы вы подсказать, как наиболее правильно выполнить программу? Я попытался создать ее, но она совсем не работает. Я уже правда не имею понятия, как ее реализовывать дальше... Еще необходимо ее сделать в виде модулей обработки, описания и основной программой... Помогите, пожалуйста:tehnari_ru_325:

Задача: Имеется отчетность о выпуске деталей десяти наименований семью цехами завода (в
тыс. руб.). Определить стоимость выпуска всех наименований деталей каждым из цехов.
Сравнить стоимость выпуска по каждому цеху со средней стоимостью по всему заводу.
Для каждого варианта сравнения обеспечить печать соответствующего сопроводительного
текста.
const
n=3;
type
ceh =
record
name: integer;
kol: integer;
num: integer;
end;
var
zavod: array [1..7] of ceh;
s,i:integer;
f:text;

procedure zapoln (zavod:ceh);
begin
for i:=1 to n do
begin
writeln('Введите наименование детали: ');
readln(zavod.name);
writeln('Количество деталей: ');
readln(zavod.kol);
writeln('Номер цеха: ');
readln(zavod.num);
end;
end;

begin
end;
until s=3;
end.