Untitled

program Project1;
{$codepage utf-8}
var
  a: array[1..100, 1..100] of integer;
  i, j: integer;
  b: integer;
  ni, nj, pos: integer;
begin
  pos := 7;
  Write('Введите размерность массива:');
  readln(ni, nj);
  writeln('Введите массив по строчно: ');
  writeln('-------------------------');
  for i := 1 to ni do
  begin
    for j := 1 to nj do
    begin
      Read(a[i, j]);
    end;
  end;
  writeln('-------------------------');
  for j := 1 to nj do
  begin
    for i := 1 to ni do
    begin
      b := a[i, j] + b;
    end;
    writeln('В стобце ', j, ' сумма = ', b);
    b := 0;
  end;
  readln();
  readln();
end.