Проверьте. Что не так. Кромка матрицы

[Pixma]

Вот текст задания:
Создать массив, элементы которого равны сумме цифр чисел, расположенных по кромке случайно заполненной матрицы.

Работает не правильно.
При нажатии на кнопку вызываю так:

procedure TForm1.Button2Click(Sender: TObject);
var m:Tmatr;a:Tmas;ncol,nrow,k:integer;SG:Tstringgrid;s:string;
begin
sg:=stringgrid1;
ncol:=strtoint(edit3.Text);
nrow:=strtoint(edit2.Text);
getMatrFromGrid(m,nrow,ncol,SG);
sumkromk(m,ncol,nrow,k,a);
s:=arraytostr(a,k);
showmessage(s);
end;

результат выдаёт вот такой:
4 4 4 46558598 6349385 45345 435 и т.д.
Посмотрите. Может поможете?:confused:


Procedure sumkromk(const m:tmatr;ncol,nrow:integer;var k:integer;var a:Tmas);
var i,x:integer;
begin
k:=0;
for i:=1 to ncol do begin
x:=m[1,i];
k:=k+1;
while x mod 10>0 do begin
a[k]:=a[k]+(x mod 10);
x:=x div 10 end;
end;
for i:=1 to nrow-1 do begin
x:=m[i,ncol];
k:=k+1;
while x mod 10>0 do begin
a[k]:=a[k]+(x mod 10);
x:=x div 10 end;
end;
for i:=1 to ncol-1 do begin
x:=m[nrow,i];
k:=k+1;
while x mod 10>0 do begin
a[k]:=a[k]+(x mod 10);
x:=x div 10 end;
end;
for i:=1 to nrow-2 do begin
x:=m[i,1];
k:=k+1;
while x mod 10>0 do begin
a[k]:=a[k]+(x mod 10);
x:=x div 10 end;
end;
end;