работа с типизированным файлом

[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:=0;
while j<=n do
begin
sum:=0;
j:=J+2;
for I:= 1 to n do
sum:=sum+a[i,j];
j:=j+2;
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 n do begin
write (f2, a[i,j]);
write (a[i,j] :7:1, ' ');
end;writeln;
end;
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.

[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:=  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;
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.