символьная матрица

[as1212]

Помогите разобраться, вот сделал задачку но, что-то не выходит как надо результат.

Пусть задана символьная матрица размерности n х m. Напечатайте все символы, находящиеся в столбцах, элементы которых симметричны.

const
  n= 4;
  m= 5;
 
var
  a: array[1..n,1..m] of char;
  i,j: integer;
 
begin
  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 begin
    i:=1;
    while (i<=n div 2) and (a[i,j]=a[n-i+1,j]) do inc(i);
    if i>n div 2 then begin
      for i:=1 to n do write(a[i,j]);
      writeln
    end
  end;
  readln
end.

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

[Serge_Bliznykov]

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

симметричны чему? Или относительно чего?

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

[as1212]

надо вводить так:

12345
qwert
qwert
10305


И результат будет такой:

1qq1
3ee3
5tt5

[Serge_Bliznykov]

ясно.

оп-с...

А чём проблема то?!

программа из пост #1 абсолютно РАБОЧАЯ!!!!!!
вот, привожу результат её работы (Turbo Pascal Version 7.0):

12345
qwert
qwert
10305
1qq1
3ee3
5tt5