Вводится матрица вещественных чисел,необходимо поменять местами столбец с минимальным элементом и столбец с максимальным элементом.

[Antohamc]

ЗАДАНИЕ. Вводится матрица вещественных чисел,необходимо поменять местами столбец с минимальным элементом и столбец с максимальным элементом.
Не вижу ошибку,однако она есть,столбцы не меняются.

program Project2;

{$APPTYPE CONSOLE} 

uses
  SysUtils;

Var i, j, n, r, m :integer;
K1, K2 :integer; 
a :array[1..100, 1..100] of integer;
begin
Write('Введите кол. столбцов: ');
Readln(n);

Write('Введите кол. строк: ');
Readln(m);

Writeln('Введите элементы массива: ');
for i:=1 to n do begin
for j:=1 to m do begin
Readln(a[i,j]);
end;
end;

for j:=1 to n do begin
for i:=1 to m do begin
  if a[j, i]<a[j+1,i] then
    r := a[j, i];
    a[j, i] := a[j+1, i];
    a[j, i] := r;
end;
end;

Writeln('Резульат: ');
for i:=1 to n do begin
for j:=1 to m do begin
Write(' ', a[i,j]);
end;
Writeln('');
end;

Read(m); 
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

Сообщение от Antohamc

Вводится матрица вещественных чисел

Сообщение от Antohamc

a :array[1..100, 1..100] of integer;

ошибка. у Вас целые числа. замените на real или double или extended


второе.

Сообщение от Antohamc

for j:=1 to n do begin
for i:=1 to m do begin
  if a[j, i]<a[j+1,i] then
    r := a[j, i];
    a[j, i] := a[j+1, i];
    a[j, i] := r;
end;
end;

это попытка отсортировать (ошибочная!)
Но в этой задаче сортировать ничего не нужно.
совсем.

нужное искать минимальное/максимальное значение.
причём искать нужно индексы (номера) столбцов с такими элементами.

это выглядит примерно так:

MinRow := 1; MinCol := 1;
MaxRow := 1; MaxCol := 1;
for i:=1 to m do 
for j:=1 to n do begin
  if a[MinRow, MinCol]>a[i,j] then begin
    MinRow := i; MinCol := j;
  end;
  if a[MaxRow, MaxCol]<a[i,j] then begin
    MaxRow := i; MaxCol := j;
  end;
end;

теперь нужно поменять местами столбцы MinCol и MaxCol:

if MinCol<>MaxCol then 
  for i:=1 to m do begin
     r:=a[i, MinCol];
     a[i, MinCol] := a[i, MaxCol];
     a[i, MaxCol] := r
  end;

всё.