Сгенерировать N2 случайных чисел...

uses crt;
const n=5;//размер матрицы
function SumCif(x:real;l:byte):byte;//функция считает первые цифры дробной части
var i,sm,k:byte;
    x1:integer;
begin
x:=abs(x); //убираем минус, если он есть
x:=x-trunc(x);//вычитаем целую часть числа
for i:=1 to l do
x:=x*10; //умножаем дробную часть на 10 сколько нужно первых цифр
x1:=trunc(x);//берем целую часть, уже integer
sm:=0;
while x1>0 do
  begin
   k:=x1 mod 10; //оберем по одной цифре с конца
   sm:=sm+k;  //и складываем
   x1:=x1 div 10;//повторяем, пока число не кончится
  end;
SumCif:=sm;
end;
var a:array[1..n*n] of real;
    b:array[1..n,1..n] of byte;
    i,j,l,k,min,max:byte;
    sum:integer;
begin
randomize;
clrscr;
write('k=');readln(k);
writeln('Massiv A:');
for i:=1 to n*n do
   begin
    a[i]:=10*random;//генерируем массив
    write(a[i]:8:4);
   end;
writeln;
writeln('Matrica B:');
for i:=1 to n do  //превращаем его в матрицу
  begin
    for j:=1 to n do
      begin
       b[i,j]:=SumCif(a[j+n*(i-1)],k);//сразу берем сумму первых k цифр
       write(b[i,j]:4);
      end;
    writeln;
  end;
min:=b[1,1];max:=b[1,1];
for i:=1 to n do
for j:=1 to n do
if b[i,j]<min then min:=b[i,j] /находим минимум
else if b[i,j]>max then max:=b[i,j];//находим максимум
writeln('Min=',min,'  Max=',max);
sum:=0;
for i:=1 to n do
sum:=sum+b[i,n];  //находим сумму последнего столбца
write('Summa poslednego stolbca=',sum);
readln
end.