сложение по строке, помогите исправить Опции

[Шурик]

Мне надо вывести на экран сумму элементов по столбцу

 const m=30;
var
   x,n:integer;
   b,a:array[1..m,1..m] of integer;
   i,j,s,sum:integer;
begin
clrscr;
s:=0;
     write('N=');
     readln(n);

     if n<30 then
for i:=1 to n do
	   for j:=1 to n do
	   begin
	       b[i,j]:=random(10);
	   end;

	 for i:=1 to n do
	 begin
	     for j:=1 to n do
		 write(b[i,j]:4);
	     writeln;
	 end;
	 writeln;
	 for j:=1 to n do
	       for i:=1 to n do
	     S:=S+b[i,j];

	     end;
	 for i:=1 to n do
		 write(s:8);
	     writeln;

     readln;
end.