Сформировать двумерный массив...

[ai\ekcah^p]

Сформировать двумерный массив E размером 3 – количество строк; 7 – количество столбцов с помощью генератора случайных чисел и вывести элементы массива на экран и в файл. Вычислить сумму отрицательных элементов столбца, в котором находится максимальный элемент матрицы E (оформить нахождение максимального элемента в виде процедуры). Вывести на экран и в файл полученную сумму и номер столбца.

Ввожу программу-макс.элемент=0 и сумма=0! Где ошибка? Как вывести в файл? Зараннее благодарен!

uses crt;
var e:array[1..3,1..7] of integer;
s,max,n,m:integer;
index,sum:integer;
procedure max_el(max,sum:real);
begin
max:=e[1,1];
sum:=0;
index:=0;
for n:=1 to 3 do
begin
for m:=1 to 7 do
begin
if e[n,m]>max then
begin
max:=e[n,m];
index:=m;
end;
end;
end;
for n:=1 to 3 do
begin
if e[n,index]<0 then
begin
sum:=sum+e[n,index];
end;
end;
end;


begin
clrscr;
writeln('elementy massiva');
writeln;

randomize;
for n:=1 to 3 do
begin
for m:=1 to 7 do
begin
e[n,m]:=random(100) -50;
write('',e[n,m],' ');

end;

end;
writeln;
writeln;
writeln('naibolwiy element = ',max,' summa otricatelnyh= ',sum);
end.

[Dirt]

привет)
Процедуру надо вызывать, а вы ее не где не вызываете, и то что в (max,sum:real) - это входные данные

[Dirt]

uses crt;
var e:array[1..3,1..7] of integer;
s,max,n,m:integer;
index,sum:integer;
procedure max_el;
begin
max:=e[1,1];
sum:=0;
index:=0;
for n:=1 to 3 do
begin
for m:=1 to 7 do
begin
if e[n,m]>max then
begin
max:=e[n,m];
index:=m;
end;
end;
end;
for n:=1 to 3 do
begin
if e[n,index]<0 then
begin
sum:=sum+e[n,index];
end;
end;
writeln('naibolwiy element = ',max,' summa otricatelnyh= ',sum);
end;


begin
clrscr;
writeln('elementy massiva');
writeln;

randomize;
for n:=1 to 3 do
begin
for m:=1 to 7 do
begin
e[n,m]:=random(100) -50;
write('',e[n,m],'    ');

end;
writeln;
end;
writeln;
writeln;
max_el;
readkey;
end.

[Dirt]

Вот с записью в файл:

uses crt;
var e:array[1..3,1..7] of integer;
s,max,n,m:integer;
index,sum:integer;
ff:text;
procedure max_el;
begin
max:=e[1,1];
sum:=0;
index:=0;
for n:=1 to 3 do
begin
for m:=1 to 7 do
begin
if e[n,m]>max then
begin
max:=e[n,m];
index:=m;
end;
end;
end;
for n:=1 to 3 do
begin
if e[n,index]<0 then
begin
sum:=sum+e[n,index];
end;
end;
writeln('naibolwiy element = ',max,' summa otricatelnyh= ',sum);
assign(ff,'3.txt');
rewrite(ff);
write(ff,'naibolwiy element = ',max,' summa otricatelnyh= ',sum,',  stolbec = ',index);
close(ff);
end;


begin
clrscr;
writeln('elementy massiva');
writeln;

randomize;
for n:=1 to 3 do
begin
for m:=1 to 7 do
begin
e[n,m]:=random(100) -50;
write('',e[n,m],'    ');

end;
writeln;
end;
writeln;
writeln;
max_el;
readkey;
end.

[ai\ekcah^p]

Огромное спасибо Dirt!!! Теперь я понял , где тупил)))