Да нет смотрите я решила - только не знаю правильно или нет. Проверьте если Вам не сложно.
uses crt;
type tovar=record
name:string[20];
kol:integer;
end;
var a:array[1..100] of prodaza;
n,i,sum:byte;
begin
clrscr;
write('Skolko naimenovaniy?');
readln(n);
writeln('Vvedite harakteristiki oborudovaniya')
for i:=1 to n do
begin
with a[i] do
begin
write(' Nazvanie ',i,' ');readln(name);
write(' Kolichestvo ');readln(kol);
end;
end;
sum:=0;
for i:=1 to n do
begin
with a[i] do
sum:=sum+kol;
end;
writeln;
writeln(sum);
end.