Подпрограммы на паскале

[puporev]

Очень много написано лишнего. Ведь суть вопроса общая стоимость проданного товара. Зачем столько процедур, когда можно все последовательно описать. Процедура Сумма вообще лишняя, стоимость проданного товара по видам можно описать полем записи. Названия полей хоть как-то должны намекать на их сущность. Названия типов принято начинать с буквы Т.
Вот как бы я начал программу.

program lab61;
type Ttov = record
                 naz:string[10];
                 cen:integer;
                 kol:integer;
                 stm:integer;
                end;
Tmas=array[1..10] of Ttov;
var a:Tmas;
     p,S,n,i:integer;
procedure INMAS(var x:Tmas;n:integer);
var i:integer;
begin
for i:=1 to n do
with x[i] do
     begin
     write('Vvedite tovar; ');readln(naz);
     write('Vvedite cenu: ');readln(cen);
     write('Vvedite kolich priobretenih tov: ');readln(kol);
     stm:=cen*kol;
    end;
end;

[vlad1991]

Большое спасибо за помощь!!!!!