Циклы (векторы)

[Horatii]

Привет всем!!

program p1;
type vector=array[1..100]of integer;
var
a:vector;
m,b,c,i,j,n,d:integer;
procedure p(a:vector;g:integer;var h:integer);
var
i,min:integer;
begin
h:=1;
min:=a[g];
for i:=g to sqr(g) do   begin
if a[i]<min then min:=a[i];end;
h:=h+min;
end;
begin
readln(m);
repeat
c:=sqr(b);
m:=m-c;
inc(b);
until sqr(b)=m;
writeln(b);
repeat
for i:=1 to b do begin
for j:=i to sqr(i)do begin
readln(a[j]);
p(a,j,d);
end;
end;
until i=b;
write(d);
end.

Ну вот и вопрос...мне нужна чтобы он считал минимум с B векторов но снова что то не так сделал
Пример

b:=4
           for i:=1 to sqr(1) do readln (a[i]) ;min();
           for i:=2 to sqr(2)do readln (a[i]) ;min()
           for i:=3 to sqr(3)do mreadln (a[i]) ;in()
           for i:=4 to sqr(4)do readln (a[i]) ;min()

Программа должна считать все мин и дать суммую
помогите плизз

[Stilet]

min();

Что это?

for i:=1 to sqr(1) do readln (a[i]) ;min();

Может так имелось ввиду?:

for i:=1 to sqr(1) do begin readln (a[i]) ;min();end;

[Horatii]

Min может быть процедурой или функцией но что бы считала сумму все векторов
спасибо что отредактировал