Программа Паскаль

[Despot777]

Здравствуйте! Помогите с программой, прога должна сортировать массив за обменом. Пишет ошибку "Массив имеет другое количество размерностей".

program abc;
uses crt;
var a : array [1..10, 1..10] of integer;
i, j, x, n, m : integer;
begin
clrscr;
write(Кол-во строк: ); readln(n);
write(Кол-во столбов: ); readln(m);
write(Введите массив: );
for i:= 1 to n do
for j:= 1 to m do
readln(a[i,j]);
writeln(Исходный масив: );
for i:=1 to n do begin
  for j:=1 to m do Write(a[i,j]:4,' ');
  
  for i:=1 to n-1 do
    for j:=i+1 to m do
      if a[i] > a[j] then begin
        t := a[i];
        a[i] := a[j];
        a[j] := t;
      end;
 
  {Сортировка по обмену}
  WriteLn(Отсортированный массив:);
  for i:=1 to n do
    Write(a[i]:5:3,'  ');
  WriteLn;
end;
end.

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

2) Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.

Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

у Вас массив ДВУХМЕРНЫЙ (он же матрица).
чтобы указать элемент массива нужно ДВА индекса (номер строки и номер столбца)