Turbo Pascal Двумерные массивы

[lvl]

1) Характеристикой столбца целочисленной матрицы назовем сумму модулей его отрицательных нечетных элементов. Переставляя столбцы заданной матрицы, расположить их в соответствии с ростом характеристик (оформиить в виде процедуры).
2)Найти сумму элементов в тех столбцах, которые содержат хотя бы один отрицательный элемент (оформить в виде функции).

P.S.: это одна задача, помогите, пожалуйста, решить её))
Сам алгоритм есть, но нужно оформить в виде функции и в виде процедур

program zadanie5;
uses crt;
var a:array[1..20, 1..20] of integer;
m, n, i, j, k:byte;
s, x:integer;
begin
clrscr;
randomize;
repeat
write('введите количество строк m=');
readln(m);
until m in [1..20];
repeat
write('введите количество столбцов n=');
readln(n);
until n in [1..20];
for i:=1 to m do
for j:=1 to n do
a[i, j]:=random(20)-5;
for j:=1 to n do
begin
s:=0;
for i:=1 to m do
if (a[i,j]<0) and odd(a[i,j]) then s:=s+abs(a[i,j]);
a[i,j]:=s;
end;
writeln('Исходная матрица*:');
for i:=1 to m do
begin
write;
for j:=1 to n do
write(a[i,j], ' ');
writeln;
end;
for j:=1 to n do
write(a[i,j], ' ');
writeln;
for j:=1 to n-1 do
for k:=j+1 to n do
if a[i,j]>a[i,k] then
for i:=1 to m do
begin
x:=a[i,j];
a[i,j]:=a[i,k];
a[i,k]:=x;
end;
writeln('столбцы упорядочены');
for i:=1 to m do
begin
write('');
for j:=1 to n do
write(a[i,j], ' ');
writeln;
end;
for j:=1 to n do
write(a[i,j], ' ');
writeln;
writeln('суммы в столбцах, где есть отрицательные числа:');
for j:=1 to n do
begin
x:=0;
for i:=1 to m do
if a[i,j]<0 then x:=1;
if x=1 then
begin
s:=0;
for i:=1 to m do
s:=s+a[i,j];
writeln('сумма в столбце',j,'=',s);
end;
end;
readln;
end.

[Stilet]

program zadanie5;
uses crt;
var a:array[1..20, 1..20] of integer;
m, n, i, j, k:byte;
s, x:integer;

procedure _in(); var i,j:integer;
begin
for i:=1 to m do for j:=1 to n do a[i, j]:=random(20)-5;
end;

procedure _uno;var i,j:integer;
begin
for j:=1 to n do begin s:=0;
 for i:=1 to m do
  if (a[i,j]<0) and odd(a[i,j]) then s:=s+abs(a[i,j]);
 a[i,j]:=s;
end;
end;

procedure _out;var i,j:integer;
begin
writeln('Исходная матрица*:');
for i:=1 to m do begin
 for j:=1 to n do  write(a[i,j], ' ');
 writeln;
end;
end;

procedure _sort;var i,j:integer;
begin
for j:=1 to n-1 do
 for k:=j+1 to n do
  if a[i,j]>a[i,k] then
   for i:=1 to m do begin
     x:=a[i,j];
     a[i,j]:=a[i,k];
     a[i,k]:=x;
   end;
writeln('столбцы упорядочены');
end;

function sum(j:integer); var s,i:integer;
begin
 s:=0;
 for i:=1 to m do s:=s+a[i,j];
 sum:=s;
end;

begin
clrscr;
randomize;
repeat write('введите количество строк m='); readln(m);until m in [1..20];
repeat write('введите количество столбцов n=');readln(n);until n in [1..20];

_in;_uno;_out;_sort;_out;

writeln('суммы в столбцах, где есть отрицательные числа:');
for j:=1 to n do begin x:=0;
 for i:=1 to m do if a[i,j]<0 then x:=1;
 if x=1 then    writeln('сумма в столбце',j,'=',sum(j));
end;

readln;
end.

Подходит?

[lvl]

function sum(j:integer); var s,i:integer;
вот в этой строчке выводит ошибку: "Предполагается идентификатор типа"
не могу понять что не так

[Stilet]

Забыл там тип функции указать. Почитай как описываются функции и где у них типы и допиши

[Mad_Cat]

function sum(j:integer):integer; 
var s,i:integer;
begin
 s:=0;
 for i:=1 to m do s:=s+a[i,j];
 sum:=s;
end;

[lvl]

всё работает, спасибо большое!!!)))