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

[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.