Подсчитаем количество цифр в целом числе

var mas: array [1..8,1..5] of integer;
   i, j, max, k, s,q:integer;
   mass:array[1..8,1..5] of integer;
begin
 Randomize;
 writeln('** Исходный массив **');
 for i:=1 to 8 do
  begin
   for j:=1 to 5 do
    begin
     mas[i,j]:=random(21)-10;
     write(mas[i,j]:4);
    end;
   writeln; 
  end;
 for i:=1 to 8 do
  begin
   s:= 0;
   for j:=1 to 5 do
    s:= s + mas[i, j];
   if (i=1) or (s>max)
    then
     begin
      k:= i;
      max:= s;
     end;
  end;   
  write('Строка ', k, ': ');
  for j:=1 to 5 do
   write(mas[k,j]:4);
  writeln;
 
     q:=1;
     for i:=1 to 8 do
      begin
        for j:=1 to 5 do
          begin
          if i<>k then mass[q,j]:=mas[i,j];
          end; 
          if i<>k then inc(q);
      end;
     
      for i:=1 to 7 do
  begin
   for j:=1 to 5 do
    begin
     write(mass[i,j]:4);
    end;
   writeln; 
  end;
  
  
end.

var n,m,i,j:byte;
begin
n:=9;
m:=10;
 
for j:=1 to n do
  begin
    for  i:=1 to m do
      begin
       if (j=1) or (j=n) then write('*')
       else if (i=1) or (i=m) then write('*')
       else write(' ');
      end;
  writeln;
  end;
 
end.