Pascal. Составить программу для вычисления суммы элементов <3 в каждом столбце матрицы Z(6х3)

program Podchet;var  i, j ,ans: integer;  a: array [1..6,1..3] of integer;begin  writeln('Введите матрицу 6х3');  ans := 0;  for i := 1 to 6 do    for j := 1 to 3 do      read(a[i, j]);  for i := 1 to 3 do begin    for j := 1 to 6 do      if (a[j, i] < 3) then        ans := ans + a[j, i];    end;    writeln(ans);    ans := 0;  end;end.