uses crt;
const
Max= 100;
type
tStroka= array [1..Max] of integer;
var
a: array [1..100] of tStroka;
N, M, i, j :integer;
s:real;
e: tStroka;
begin
write('N, M -> ');
readln(N, M);
write('Input matrix -> ');
for i:=1 to N do
for j:=1 to M do
begin
write('A[',i,',',j,'] -> ');
readln(a[i, j]);
end;
for i:=1 to n do
for j:=i-1 downto 1 do
begin
if a[j,1]<a[j+1,1] then
begin
e:=a[j];
a[j]:=a[j+1];
a[j+1]:=e;
end;
writeln (a[i,j]);
end;
for i:= 1 to n do
begin
s:=0;
for j:= 1 to m do
s:=s+a[i,1];
end;
s:=s/N;
write (s);
end.
Как сделать сортировку в виде процедуры, а вычисление в виде функции? Препод говорил что-то о разных способах задания переменых в процедурах и функциях, и я запутался, когда, какой способ использовать. Помогите, пожалуйста,.