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

program pr;
type
  arr = array [1..100, 1..100] of integer;
var
  a, b: arr;
  i, n, m, j, imax, imin, max, min, temp: integer;
function sa(x: integer): integer;
var
  kS: integer;
begin
  kS := 0;
  while x <> 0 do 
  begin
    kS := kS + (x mod 10);
    x := x div 10;
  end;
  sa := ks;
end;
begin
  randomize;
  writeln('Введите размер массива');
  readln(n);
  readln(m);
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := random(21);
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:3);
    writeln;
  end;
  writeln;
  for i := 1 to n do
    for j := 1 to m do
      b[i, j] := sa(a[i, j]);
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(b[i, j]:3);
    writeln;
  end;
  min := b[1, 1];
  for i := 1 to n do
    for j := 1 to m do
      if b[i, j] < min then
      begin
        min := b[i, j];
        imin := i;
      end;
        max := b[1, 1];
        for i := 1 to n do
    for j := 1 to m do
  if b[i, j] > max then
  begin
    max := b[i, j];
    imax := i;
  end;
  writeln('Наибольший: ', max, ' разположен в ', imax, ' строке');
  writeln('Наименьший: ', min, ' расположен в ', imin, ' строке');
  for j := 1 to m do
  begin
    temp := b[imax, j];
    b[imax, j] := b[imin, j];
    b[imin, j] := temp;
  end;
  writeln;
  writeln('После перестановки строк');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(b[i, j]:3);
    writeln;
  end; 
end.