Сделать процедурами

[Айдар]

Вот собственно код работающий задачи, ее надо переделать в процедуры.
Задана матрица A(n,m), найти вектор b(l), каждый элемент которого равен средне арефмитеч. элементов соответствующего столбца матрицы А.

1. Создание массива и ввод массива в процед, (ввод кол-ва строк, столбцов, и длинны массива в основн по)
2. Работа над массивом в процедуре.

program Project1;
  uses crt;
  var
  a:array[1..100,1..100] of integer;
  b:array[1..100] of real;
  i,j,c,n,m,e:integer;
  F:real;

begin
repeat
clrscr;
writeln ('BBedite kol-vo stolbcov');
readln(m);
writeln ('VVedite kol-vo ctrok');
readln (n);
writeln ('Vvedite elements');
for j := 1 to m do
  begin
     for i := 1 to n do
      begin
         readln(a[i,j]);
      end;
      writeln;
  end;
    for j:= 1 to m do
  begin
     for i:= 1 to n do
      begin
          c:=c+a[i,j];
      end;
      b[j]:=c/n;
      c:=0;
    end;
  for j:=1 to m do
  write (b[j]:6:2);
  writeln;
  writeln ('Xotite Prodol)I(itb da-1 Het-2');
  readln (e);
  until e=2;
  end.

Вот я сделал, но че-то не работает, подскажите где ошибки

program Project1;
type mas1=array [1..100,1..100] of integer;
type mas2=array [1..100] of integer;
 var
   i,j,c,n,m,e:integer;
  procedure mas (var a:mas1;m:integer;n:integer);
  begin
for j := 1 to m do
  begin
     for i := 1 to n do
      begin
         readln(a[i,j]);
      end;
      procedure obrab (var a:mas1;b:mas2;n:integer;m:integer);
      begin
      for j:= 1 to m do
  begin
     for i:= 1 to n do
begin
          c:=c+a[i,j];
      end;
      b[j]:=c/n;
      c:=0;
    end;
    procedure vivod (var b:mas2;m:integer);
  for j:=1 to m do
  write (b[j]:6:2);
  writeln;
end;
begin
writeln ('BBedite kol-vo stolbcov');
readln(m);
writeln ('VVedite kol-vo ctrok');
readln (n);
writeln ('Vvedite elements');
mas (a,n,m);
obrab (a,b,n,m);
vivod (b,m);
end.

[Xatr]

А можно условие задачи?

[Айдар]

Да, конечно.
Задана матрица A(n,m), найти вектор b(l), каждый элемент которого равен средне арефмитеч. элементов соответствующего столбца матрицы А.

[Xatr]

Программа запускается:

program Project1;
type mas1=array [1..100,1..100] of integer;
type mas2=array [1..100] of real;
 var
   i,j,c,n,m:integer;
   a:mas1;
   b:mas2;
procedure mas (var a:mas1;m:integer;n:integer);
begin
for j := 1 to m do
     for i := 1 to n do
         readln(a[i,j]);
end;
procedure obrab (var a:mas1;b:mas2;n:integer;m:integer);
begin
     for j:= 1 to m do
     begin
          for i:= 1 to n do
              begin
                   c:=c+a[i,j];
              end;
      b[j]:=c/n;
      c:=0;
    end;
end;
    procedure vivod (var b:mas2;m:integer);
begin
  for j:=1 to m do writeln (b[j]);
  writeln;
end;
begin
writeln ('BBedite kol-vo stolbcov');
readln(m);
writeln ('VVedite kol-vo ctrok');
readln (n);
writeln ('Vvedite elements');
mas(a,n,m);
obrab (a,b,n,m);
vivod (b,m);
end.

Внесённые изменения:
1) Все begin заканчиваются end-ами
2) добавлены переменные a и b
3) убрана лишняя переменная e

Лично у меня выводит нули. Может я не правильные значения ввожу?
2 столбца
2 строки
Значения: 1 2 3 4
Где-то ещё ошибка.

[Айдар]

Да программа запустилась, но теперь выводит не правильные значени...

[Айдар]

Блин, не могу найти ошибку(((

[Айдар]

Ребят не ужели никто не нашел ошибку?

[Айдар]

ну помогите, срочно до завтра

[anGeee]

Замените

procedure obrab (var a:mas1;b:mas2;n:integer;m:integer);

на

procedure obrab (var a:mas1;var b:mas2;n:integer;m:integer);

Возможно, это и есть ошибка..

[Айдар]

во заработало, ура ))))