в символьной матрице найдите номер первого по порядку столбца, содержащего наименьшее число пробелов - Ошибка в коде (Delphi)

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

Всем доброго времени суток! Помогите пожалуйста исправить ошибку в коде. Почему-то всегда печатается первый столбец. Почему так?

{Пусть дана символьная матрица размером 13х18. Найдите номер первого по порядку столбца, содержащего наименьшее число пробелов на пересечении со строками, номера которых четные.}

program Project24287;

{$APPTYPE CONSOLE}

uses
  SysUtils,windows;
const
  n=13;
  m=18;
type
  telem=char;
  mas=array[1..n] of telem;
  matr=array[1..m] of mas;
//Ввод элементов матрицы
procedure Vvod_Matr(a:matr);
  const
    n=13;
    m=18;
  var
    i,j:integer;
  begin
    writeln('Введите матрицу ',n,'x',m);
    for i:=1 to m do
      begin
        for j:=1 to n do
        read(a[i,j]);
        readln
      end
  end;
  //Выполнение условия задачи
procedure Poisk_Str(a:matr);
  const
    n=13;
    m=18;
  var
    i,j,k,min,kolstr:integer;
  begin
    min:=50;
    kolstr:=0;
    for j:=1 to n do
      begin
        i:=2;
        k:=0;
        while i<=m do
          begin
            if a[i,j]=' ' then
            k:=k+1;
            i:=i+2
          end;
        if k<min then
          begin
            min:=k;
            kolstr:=j
          end
      end;
    writeln(kolstr)
    end;
var
  a:matr;
  i,j,min,kolstr,k:integer;
begin
  setconsolecp(1251);
  setconsoleoutputcp(1251);
  Vvod_Matr(a);
  Poisk_Str(a);
  readln
end.

[Hacker19_90]

потому что вы массив не вводите! Точнее вводите но его значения не изменяются!
Измените вот это

procedure Vvod_Matr(a:matr);

на вот это

procedure Vvod_Matr(var a:matr);

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

Да, работает! Я Вам очень благодарен!