Условие программы: в матрице m*n найти все числа, большие от первого элемента. Вывести на экран матрицу и все числа большие 1-го элемента в порядке по убыванию.
Собственно, вот она:
var a:array[1..100,1..100] of integer;
b:array[1..100] of integer;
i,j,m,n,k,buf:integer;
begin
clrscr;
write('m='); read(m);
write('n='); read(n);
for i:=1 to m do
for j:=1 to n do
begin
write('a[',i,',',j,']=');
read(a[i,j]);
end;
k:=0;
for i:=1 to m do
for j:=1 to n do if (a[i,j]>a[1,1]) then
begin
k:=k+1;
b[k]:=a[i,j];
end;
for i:=1 to k-1 do
for j:=i+1 to k do if b[i]<b[j] then
begin
buf:=b[i];
b[i]:=b[j];
b[j]:=buf;
end;
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln
end;
writeln;
for j:=1 to k do
write(b[j],' ');
end.
Нужно ее переделать чтобы в ней были процедуры или функции.