задача на массив записей Опции

[Galka]

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

Код

program mas;
type
  fabrica = record
  par1,par2,par3: 1..3;
  value,sebest,price:integer;
  sst:real;
  end;
var a:array[1..3] of fabrica;
i:integer;
begin
for i:=1 to 3 do
with a[i] do
begin
writeln ('vvedite dannye');
readln(par1,par2,par3);
sst:=(par1+par2+par3)/3;
writeln(sst);
end;
end.

[Krjuger]

Блин у тебя мания цыкла fоr какая то.Зачет тебе цикл от 1 до 1,это значит что он будет выполятся всего 1 раз при значении i равном 1,цикл нужен будет если таких заказов будет 10, например.Затем ,когда пишеш массив,если он у тебя строго 1 значение хранит,то зачем писать[1..1] это просто безграмотно,[1] и все,не надо мудрить.

program mas;
type
  fabrica=record
     kol : integer;
     cena : integer;
end;
 var 
    a: array [1..3] of fabrica;
    y, i:integer;
begin
y:= 0;
for i:=1 to 3 do 
begin
 writeln('vvedite kolichestvo zakazov '); readln(a[i].kol);
 writeln('vvedite cenu'); readln(a[i].cena);
 y:=y + cena*kol;
end;
y:=y/3;
writeln('srednya stoimost ', y , ' rub.');
readln;
end.

Вот так будет выглядеть получше,правда я не уверен что тебе это надо уже)