В двумерном массиве вычислить сумму элементов каждого столбца отдельно и так же отдельно вывести эти суммы на экран — Pascal(Паскаль)

var
  a:array[1..5,1..5] of integer;
  i,j:integer;
  sum:integer;
begin
  randomize;
  sum:=0;
  for i:=1 to 5 do
    begin
      for j:=1 to 5 do
      begin
        a[i,j]:=random(8)+2;
        write(' ',a[i,j],' ');
      end;
      writeln;
    end;
  writeln;
  for j:=1 to 5 do
    begin
    sum:=0;
      for i:=1 to 5 do
          sum:=sum+a[i,j];
      write(sum,' ');
    end;
  readln;
end.