Процедура возвращает нули (готовим бубен)

[Dexes]

Добрый вечер.

uses crt;
type names_array = array [1..10] of string;
	 cost_array = array[1..10] of integer;
	 new_cost_array = array [1..10] of real;

var names: names_array;
    costs: cost_array;
    new_costs: new_cost_array;
    proc, i, count :integer;

procedure my_read(MRCount: integer; var MRNames: names_array; MRCosts: cost_array);
var i: integer;
begin
  writeln('Please write name & cost of product');
  for i:=1 to MRCount do
    begin
      write(i, '. Name: ');
   		readln(MRNames[i]);
      write('Cost of "', MRNames[i], '": ');
	  	readln(MRCosts[i]);
    end;
  for i:=1 to MRCount do
    write(MRCosts[i], ' ');
end;

procedure inc_proc(IPCount, IPProc: integer; IPCosts: cost_array; var IPNcosts: new_cost_array);
var i: integer;
begin
  for i:=1 to IPCount do
     IPNcosts[i]:=IPCosts[i]*(IPProc/100+1);
end;

procedure my_write(MWCount: integer; MWNames: names_array; MWOldCosts: cost_array; MWCosts: new_cost_array);
var i: integer;
begin
  writeln('N   Name, old cost, new cost');
  for i:=1 to MWCount do
    begin
       writeln(i:2, '. ', MWNames[i], ', ', MWOldCosts[i], '$, ', MWCosts[i]:8:3,'$');
    end;
end;

begin
 write('Please write count of product: ');
 readln(count);
 my_read(count, names, costs);
 for i:=1 to count do
     write(costs[i], ' ');
 write('The percentage increase the price: ');
 readln(proc);
 inc_proc(count, proc, costs, new_costs);
 my_write(count, names, costs, new_costs);
 readln;
end.

Процедура my_read в массив с ценами (costs) возвращает нули. Почему? Где ошибко?))

Ошибку нашел( Извиняюсь за то что потревожил.
Не хватает var'а