Упорядочить по возрастанию четные элементы каждого столбца двумерного массива

[Аелд]

Помогите правильно вывести

program Project18;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var A:array [1..30,1..30] of integer;
    n,m,i,j,k,P:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Введите число строк массива n=');
  readln(n);
  write('Введите число столбцов массива m=');
  readln(m);
  writeln('Введите исходный двумерный массив A:');
  for i := 1 to n do
    begin
      for j := 1 to m do
        read(A[i,j]);
        readln;
    end;
    for j := 1 to m do
for i := 1 to n - 1 do
for k := i+1 to n do
if (A[i,j] mod 2=0)  and (A[i,j]>A[k,j]) and (A[k,j] mod 2=0) then
 begin
  P:=A[i,j];
  A[i,j]:=A[k,j];
  A[k,j]:=P;
 end;
writeln('Упорядоченный массив :');
for i := 1 to n do
 begin
  for j:=1 to m do
  write(A[j,j]:5);
  writeln;
 end;
readln;
end.

[Stilet]

A[j,j]

Может A[i,j] ?

[Аелд]

пробовал так,но выдает тот же массив что я и вводил

[Аватар]

Если поправку Виталия учел, то все должно правильно сработать. Согласно изложенного ТЗ

[Аелд]

смотрите,что у меня получается
Безымянный.jpg

[Stilet]

Показывай измененный тобой код.

[Аелд]

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

Показывай измененный тобой код.

program Project18;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var A:array [1..30,1..30] of integer;
    n,m,i,j,k,P:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Введите число строк массива n=');
  readln(n);
  write('Введите число столбцов массива m=');
  readln(m);
  writeln('Введите исходный двумерный массив A:');
  for i := 1 to n do
    begin
      for j := 1 to m do
        read(A[i,j]);
        readln;
    end;
    for j := 1 to m do
for i := 1 to n - 1 do
for k := i+1 to n do
if (A[i,j] mod 2=0)  and (A[i,j]>A[k,j]) and (A[k,j] mod 2=0) then
 begin
  P:=A[i,j];
  A[i,j]:=A[k,j];
  A[k,j]:=P;
 end;
writeln('Упорядоченный массив :');
for i := 1 to n do
 begin
  for j:=1 to m do
  write(A[i,i]:5);
  writeln;
 end;
readln;
end.

[Stilet]

A[i,i]

Повнимательнее будь )
Нужно было заменить на i,j (И запятая Джи) а не на (И запятая И)

[Аелд]

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

Повнимательнее будь )
Нужно было заменить на i,j (И запятая Джи) а не на (И запятая И)

тю вот балда,спасибо!

[Stilet]

вот балда

Бывает...
Вот почему я у себя применяю не i,j которые визуально похожи, а другие. Например q и w.