сумма элементов четных столбцов

[Julila]

Исправьте пожалуйста. проц. не работает.
Задание обработки найти сумму эллементов четных столбцов.
задание процедыры вывода
каждую сумму столбца четного записать отдельно.
очень долго мучаюсь сн ей .. эх((

procedure obrabotka(var a:ta);
var i,j: integer;
sum : real;
begin
j:=  n div 2;
for j := 1 to n do begin
sum:=0;
for I:= 1 to  m do begin
sum:= sum + a[i,j];
end;
end;end;


procedure vivod (var a:ta);
var i,j:integer;
 begin
rewrite(f2);
for i:=1 to n do begin
for j:=1 to m do begin
write (f2, a[i,j]);
write (a[i,j] :7:1, ' ');
end;writeln;
end;

[Летучий_СкилетиК]

...
j:=2;
while (j<=m) do
begin
     s:=0;
     for i:=1 to n do
     s:=s+a[i,j];
writeln(s);
j:=j+2;
end;
...

[Julila]

я уже не могу...

не работает...

 program lab1_2;
const   n=5;m=4;
  type ta=array[1..n,1..m] of real;
  t=array[1..m] of real;
  var a:ta;
     f1,f2: file of real;

procedure sozd;
 var a:ta;
     i,j:integer;
  begin
   rewrite(f1);
    for i:=1 to n do
     for j:=1 to m do
      begin
        write ('a[',i,', ',j,']=');
        readln(a[i,j]);
        write(f1, a[i,j]);
      end;
  close(f1);
 end;

 procedure vvod(var a:ta);
 var i,j:integer;
  begin
  reset (f1);
 for i:=1 to n do
 begin
 for j:=1 to m do
 begin
  read (f1, a[i,j]);
write (a[i,j]:7:1,  ' ');
 end;
 writeln;
end;
 close(f1);
readln;
end;

procedure obrabotka(var a:ta);
var i,j: integer;
sum : real;
begin
j:= 2;
while (j<=m) do
 begin
sum:=0;
for I:= 1 to  n do begin
sum:= sum + a[i,j];
end;
end;


procedure vivod (var a:ta);
var i,j:integer;
 begin
rewrite(f2);
write (sum : ');
close (f2);
readln;
end;



begin
assign (f1 , 'c:\lab1\in.dat');
assign (f1 , 'c:\lab1\out.dat');
sozd;
vvod(a);
obrabotka(a);
vivod(a);
end.

[Летучий_СкилетиК]

type mass=array [1..50,1..50]of integer;
function Func(a: mass; n :integer):byte;
var i, j, s:integer;
begin
    j := 2;
    while (j < n) do
    begin
        s:=0;
        for i:=1 to n do
            s:=s+a[i,j];
        writeln(s);
    j:=j+2;
    end;
end;
var a:mass;i,j,n:integer;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
Func(a,n);
end.