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

[Виталик124]

Проблема состоит в том, что программа не меняет элементы, если ввести чётную размерность например: 4X4, 6X6, 8X8...
Условие: Поменять все элементы первой строки с элементами последней!

program pomenyat_mestami_perviy_i_posledniy_element_kagdogo_stolbca;

var
v,x, i, j, n, m: integer;
  a: array[1..10000] of array[1..10000] of integer;

begin
  randomize;
  writeln('vvedite_kolichestvo_strok : ');
  readln(n);
  writeln('vvedite_kolichestvo_stolbcov : ');
  readln(m);
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(10) - 3;
      write(a[i, j]:4);
    end;
    writeln;
  end;
  for i := 1 to n do
  begin
    for j := 1 to m do    
    begin
    v:=n;
    if a[i, j] = a[1, j] then
        begin
        x := a[1, j];
        a[1, j] := a[v, j];
        a[v, j] := x;
        end;
  end;
  end;
  writeln('otsortirovannaya : ');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      write(a[i, j]:4);
    end;
    writeln;
  end;
end.

[Vanta11a]

    if a[1, j] = a[1, j] then

Условие будет всегда истинно. Что имелось ввиду?

[Stilet]

программа не меняет элементы, если ввести чётную размерность например: 4X4, 6X6, 8X8...

Я удивлен что она вообще что-то меняет. Вообще если не ошибаюсь для матрицы нужно сортировать тремя циклами.

[Виталик124]

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

Условие будет всегда истинно. Что имелось ввиду?

Там

 if a[i, j] = a[1, j] then

.

[Виталик124]

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

Я удивлен что она вообще что-то меняет. Вообще если не ошибаюсь для матрицы нужно сортировать тремя циклами.

Поподробней можно?

[Stilet]

Можно:
Пост от cherr http://www.programmersforum.ru/showthread.php?t=62335
Или вот: http://www.programmersforum.ru/showthread.php?t=64063