Ошибка в процедуре

[H_U_M_M_E_R]

Всем привет, только начал изучать процедуры. Задание даны три вектора, найти сумму их минимальных элементов (выполнить с помощью подпрограмм). Вот текст программы:

var
a: array [1..10] of real;
b: array [1..10] of real;
c: array [1..10] of real;
min1,min2,min3: integer;
i,j,k: integer;
Summa: real;
procedure minim(var G:integer; var D:array of real; var M:integer;
begin
for g:=1 to 10 do
if d[g]<d[m] then
m:=g;
end;
begin
writeln('vvedite 1 vektor');
For i:=1 to 10 do
read(a[i]);
writeln('vvedite 2 vektor');
for j:= 1 to 10 do
read(b[j]);
writeln('vvedite 3 vektor');
for k:= 1 to 10 do
read (c[k]);
minim(i;a[i];min1);
minim(j;b[j];min2);
minim(k;c[k];min3);
Summa:=a[min1]+b[min2]+c[min3];
writeln('summa=', summa:6:2);
readln;
readln;
end.

где-то в процедуре ошибка, подскажите где.
Всем заранее спасибо.

[ROMA2PVT]

http://programmersforum.ru/showthread.php?t=101400
Вот здесь функция нахождения min переделать в процедуру труда не составит

[H_U_M_M_E_R]

Спасибо, сейчас посмотрю