Обработкамассива с использованием типизированных файлов

[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;
 
 
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);
obrab(a);
vivod(a);
end.

[masterlomaster]

Что за задание?

[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.

[masterlomaster]

Тут только процедуры, покажите дальше

[Julila]

процедура обработки не пашет. это вся программа

[phomm]

assign (f1 , 'c:\lab1\in.dat');
assign (f1 , 'c:\lab1\out.dat');

неправильно !
как минимум, надо :

assign (f1 , 'c:\lab1\in.dat');
assign (f2 , 'c:\lab1\out.dat');

masterlomaster какой информативностью обладает Ваш ответ ? код ведь четко и ясно поделен на обявление var/const, несколько процедур и программные begin-код-end, будьте добры не засорять, а разобраться

по теме, кроме вышеописанного косяка не разбирал, после Вашей проверки с исправленной ошибкой пишите новые ошибки, если появятся, разберемся

УПД. хм.. всё-таки посмотрел, возможно, Вы неправильно работает с файлами, выпишите из процедур все reset и rewrite в главный код до вызова процедур, и все closefile после вызова процедур, мб это ничего не изменит, ибо паскаль у меня дело давнее, но возможно, что и это ведет к ошибке, НО в любом случае, выписав эти вещи в главный код ошибки точно не будет