Создать массив, элементы которого равны количеству цифр чисел, расположенных по кромке матрицы (Delphi)

[Serge_Bliznykov]

Отлично. поздравляю.
Однако у Вас всё же ошибочка (опечатка, скорее) вкралась!!

поправил (см. выделенное):

 k:=1;
for i:=1 to Ncol do begin
  b[k] := Length(IntToStr(m[1,i]));
  x:=b[k];
  inc(K);
  ShowMessage(IntToStr(x));
end;
for i:=2 to NRow do begin
  B[k] := Length(IntToStr(m[i, Ncol]));
  x:=b[k];
  ShowMessage(IntToStr(x));
  inc(K);
end;
for i:=Ncol-1 downto 1 do begin
  B[k] := Length(IntToStr(m[Nrow,i]));
  x:=b[k];
  inc(K);
  ShowMessage(IntToStr(x));
end;

for i:=Nrow-1 downto 2 do begin
  B[k] :=Length(IntToStr(m[i,1]));
  x:=b[k];
  inc(K);
  ShowMessage(IntToStr(x));
end;

p.s. а ещё, зачем Вам переменная X ?!
можно же написать так:

  B[k] :=Length(.....);
  ShowMessage(IntToStr(B[k]));
  inc(K);
end;

[CrOsP]

getMatrFromGrid(m, nrow, nCol, StringGrid1);
 k:=1;
for i:=1 to Ncol do begin
  b[k] := Length(IntToStr(m[1,i]));
  x:=b[k];
  inc(K);
  ShowMessage(IntToStr(x));
end;
for i:=2 to nrow do begin
  B[k] := Length(IntToStr(m[i, Ncol]));
  x:=b[k];
  ShowMessage(IntToStr(x));
  inc(K);
end;
for i:=Ncol-1 downto 1 do begin
  B[k] := Length(IntToStr(m[Nrow,i]));
   x:=b[k];
  inc(K);

  ShowMessage(IntToStr(x));
end;

for i:=Nrow-1 downto 2 do begin
  B[k] :=Length(IntToStr(m[i,1]));
  x:=b[k];
  inc(K);
   ShowMessage(IntToStr(x));


end;


end;

ВОт работает )

[CrOsP]

Сам уже нашел спасибо огромное !!