Сортировка массива по убыванию

[nanoDesu]

Есть программка. Помогите, пожалуйста, ее переделать, чтобы программа была написана с использованием подпрограмм и включала бы как минимум две подпрограммы: формирование массива и его вывод на экран. Сама пыталась разбить, но вылазит куча ошибок( Помогите, пожалуйста, буду очень признательна:

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of real;
    n,m,i,j,l:byte;
    mn,b:real;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax-1,' m=');
readln(m);
until m in [1..nmax-1];
for i:=1 to n do
for j:=1 to m do
a[i,j]:=10*random;
{вычисление минимальных в строках и запись их в дополнительный столбец}
for i:=1 to n do
 begin
  mn:=a[i,1];
  for j:=1 to m do
  if a[i,j]<mn then mn:=a[i,j];
  a[i,m+1]:=mn;
 end;
writeln('Исходный массив:');
writeln('Миним.':(m*5+10));
for i:=1 to n do
 begin
  for j:=1 to m+1 do
  if j=m+1 then write(a[i,j]:8:1)
  else write(a[i,j]:5:1);
  writeln;
 end;
{перестановка строк по неубыванию минимальных(по последнему столбцу)}
{сортировка прямым обменом}
for i:=1 to n-1 do
for l:=i+1 to n do
if a[i,m+1]>a[l,m+1] then
for j:=1 to m+1 do
 begin
  b:=a[i,j];
  a[i,j]:=a[l,j];
  a[l,j]:=b;
 end;
writeln('Строки по неубыванию минимальных:');
writeln('Миним.':(m*5+10));
for i:=1 to n do
 begin
  for j:=1 to m+1 do
  if j=m+1 then write(a[i,j]:8:1)
  else write(a[i,j]:5:1);
  writeln;
 end;
readln
end.

[ViktorR]

Например:
Формирование массива:

Type Tmatr = array[1..nmax,1..nmax] of real;

procedure SetMatr(var a : Tmatr);
var i, j : integer;
begin
   for i:=1 to n do
      for j:=1 to m do
         a[i,j]:=10*random;

   end;
end;

Вывод массива:

procedure OutMatr(a : Tmatr);
var i, j : integer;
begin
  for i:=1 to n do begin
     for j:=1 to m do
        write(a[i,j]:6:2);
     writeln;
  end;
end;

[nanoDesu]

Вот попробовала сделать, ничего не получается, опять куча ошибок, не пойму, что не так. Подскажите, пожалуйста, в чем ошибка.

uses crt;
const nmax=20;
type Tmatr=array [1..nmax,1..nmax] of integer;
var a:array[1..nmax,1..nmax] of real;
    n,m,i,j,l:byte;
    mn,b:real;

procedure Input (var a: Tmatr);
begin
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax-1,' m=');
readln(m);
until m in [1..nmax-1];
for i:=1 to n do
for j:=1 to m do
a[i,j]:=10*random;
end;

procedure Output (var a:Tmatr);
begin
writeln('Миним.':(m*5+10));
for i:=1 to n do
 begin
  for j:=1 to m+1 do
  if j=m+1 then write(a[i,j]:8:1)
  else write(a[i,j]:5:1);
  writeln;
 end;
end;

begin
clrscr;
randomize;
procedure Input (a);
{вычисление минимальных в строках и запись их в дополнительный столбец}
for i:=1 to n do
 begin
  mn:=a[i,1];
  for j:=1 to m do
  if a[i,j]<mn then mn:=a[i,j];
  a[i,m+1]:=mn;
 end;
writeln('Исходный массив:');
procedure Output (a);
{перестановка строк по неубыванию минимальных (по последнему столбцу)}
{Сортировка прямым обменом}
for i:=1 to n-1 do
for l:=i+1 to n do
if a[i,m+1]>a[l,m+1] then
for j:=1 to m+1 do
 begin
  b:=a[i,j];
  a[i,j]:=a[l,j];
  a[l,j]:=b;
 end;
writeln('Строки по неубыванию минимальных:');
procedure Output (a);
readln
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

вызов функций и процедур производится исключетельно ПО ИМЕНИ (выкиньте слово Procedure там, где Вы вызываете эти процедуры:

begin
  clrscr;
  randomize;
  Input(a);

  {вычисление минимальных в строках и запись их в дополнительный столбец}
  for i:=1 to n do
      ...
  writeln('Исходный массив:');
  Output(a);
  ...

и т.д.

p.s. кстати, на будущее. я бы рекомендовал не использовать ключевые слова в качестве имён.
Ну неужели вместо Input хуже выглядит InputArray или DoInput и т.д.
а вместо Output - PrintArray или DoOutputArrayToScreen и т.д. и т.п.
Хотя, будет работать и с теми именами, что Вы описали...

[kuy]

Поубирал все ошибки, у меня работает, программа заполняет и выводит массив(только без сортировки):

program Project2;
{$APPTYPE CONSOLE}
const nmax=20;
type Tmatr=array [1..nmax,1..nmax] of real;


procedure Input (var a:Tmatr; var n,m:integer);
var i,j:integer;
begin
randomize;
repeat
write('Kolichestvo strok do ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Kolichestvo stolbcov do ',nmax-1,' m=');
readln(m);
until m in [1..nmax-1];
for i:=1 to n do
for j:=1 to m do
a[i,j]:=10*random;
end;

procedure Output (var a:Tmatr; var n,m:integer);
var i,j:integer;
begin
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:5:1);
  writeln;
 end;
end;

var a:Tmatr;
    n,m:integer;
begin
Input(a,n,m);
writeln('mas[',n,'*',m,']:');
Output(a,n,m);
readln;
end.