задана символьная матрица nxm. Напечатайте символы, находящиеся в столбцах, элементы которых симметричны (ошибка в коде. Delphi)

[Начинающий програм]

И снова здравствуйте! У меня программа работала, до тех пор пока я не оформил всю программу в виде процедур. Помогите пожалуйста исправить ошибку. Выдаются нули а такого быть не должно.

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

program Project213142;

{$APPTYPE CONSOLE}

uses
  SysUtils,windows;
const
  n=5;
  m=7;
type
  telem=char;
  mas=array[1..n] of telem;
  matr=array[1..m] of mas;
procedure Vvod_Matr(a:matr);
const
  n=5;
  m=7;
var
  i,j:integer;
begin
  for i:=1 to m do
    begin
      for j:=1 to n do
      read(a[i,j]);
      readln
    end
end;
procedure Poisk_Stb(a:matr);
const
  n=5;
  m=7;
var
  i,j,mn:integer;
  flag:boolean;
begin
  mn:=n div 2;
  for j:=1 to n do
    begin
      flag:=true;
      i:=1;
      while flag and (i<=mn) do
        begin
          if a[i,j]<>a[n-i+1,j] then flag:=false;
          i:=i+1
        end;
      if flag then
        begin
          for i:=1 to m do
            write(a[i,j]);
          writeln
        end
    end
end;
var
  a:matr;
  i,j,mn:integer;
  flag:boolean;
begin
  setconsolecp(1251);
  setconsoleoutputcp(1251);
  Vvod_Matr(a);
  Poisk_Stb(a);
  readln
end.

[Hacker19_90]

И снова здравствуйте! У меня программа работала, до тех пор пока я не оформил всю программу в виде процедур. Помогите пожалуйста исправить ошибку. Выдаются нули а такого быть не должно.

И снова привет!
Открой прошлую тему свою, и всё снова также измени как я тебе сказал уже!
Удачи!

[Начинающий програм]

Я твой предыдущий урок учел, попробовал но все же почему-то не работает. Может в самой программе я ошибся где-то?

Прога не работает так как нужно.

Я изменил

Procedure Vvod_Matr(a:matr);

на вот это

Procedure Vvod_Matr(var a:matr);

все бестолку

Вот я исправил, одну ошибку, какая еще может быть здесь?

program Project213142;

{$APPTYPE CONSOLE}

uses
  SysUtils,windows;
const
  n=5;
  m=7;
type
  telem=char;
  mas=array[1..n] of telem;
  matr=array[1..m] of mas;
procedure Vvod_Matr(var a:matr);
const
  n=5;
  m=7;
var
  i,j:integer;
begin
  for i:=1 to m do
    begin
      for j:=1 to n do
      read(a[i,j]);
      readln
    end
end;
procedure Poisk_Stb(a:matr);
const
  n=5;
  m=7;
var
  i,j,mn:integer;
  flag:boolean;
begin
  mn:=n div 2;
  for j:=1 to n do
    begin
      flag:=true;
      i:=1;
      while flag and (i<=mn) do
        begin
          if a[i,j]<>a[n-i+1,j] then flag:=false;
          i:=i+1
        end;
      if flag then
        begin
          for i:=1 to m do
            write(a[i,j]);
          writeln
        end
    end
end;
var
  a:matr;
  i,j,mn:integer;
  flag:boolean;
begin
  setconsolecp(1251);
  setconsoleoutputcp(1251);
  Vvod_Matr(a);
  Poisk_Stb(a);
  readln
end.

[Hacker19_90]

да потому что поиск у тебя кривоват!
Ты не проверяешь все значения!
Можно использовать такой подход

for j := 1 to cols do
    for i := 1 to (rows div 2) do
        if massiv[i, j] = massiv[cols - i + 1, j] then
            Write (massiv[i, j]:5);
writeln;

[Начинающий програм]

Спасибо! Ну если бы я был продвинутым программистом, как ты, а не начинающим я бы кривые программы не составлял.

[Hacker19_90]

А я и не говорил что твоя программа ,пардон, кривая!
Я говорил, что поиск у тебя ,внимание, КРИВОВАТ!
Я не хотел сказать что-то обидное, если ты об этом!