Задача на матрицы. где-то закралась ошибка, нужно найти [Паскаль]

[president_ml]

подскажите подалуйста, где ошибка
Пограмма должна считать количество столбцов, в которых ТОЛЬКО положительные элементы.

program matrica;
     var pol,kol,i,k,l,j:integer;
     a:array[1..100,1..100] of integer;
begin
 write('введите кол-во строк=');readln(k);
 write('введите кол-во столбцов=');readln(l);
 kol:=0;
  for j:=1 to l  do
  for i:=1 to k do
     begin
      write('введите элемент, стоящий на* ',i,'-й строке и ',j,'-м столбце:');       readln(a[i,j]);
      if a[i,j]>0 then
      pol:=pol+1;
     end;
   if pol=k then
      kol:=kol+1;
 writeln('количество столбцов, содержащих только положительные элеменеты=',kol:5);
 writeln('исходная матрица*:');
  for i:=1 to k do
   begin
    for j:=1 to l do
    write(a[i,j]:6);writeln;
   end;
end.

[Mad_Cat]

program matrica;
var pol,kol,i,k,l,j:integer;
a:array[1..100,1..100] of integer;
begin
write('введите кол-во строк=');readln(k);
write('введите кол-во столбцов=');readln(l);
kol:=0;
for j:=1 to l do begin
pol:=0;
for i:=1 to k do
begin
write('введите элемент, стоящий на* ',i,'-й строке и ',j,'-м столбце:'); readln(a[i,j]);
if a[i,j]>0 then
pol:=pol+1;
end;
if pol=k then
kol:=kol+1;end;
writeln('количество столбцов, содержащих только положительные элеменеты=',kol:5);
writeln('исходная матрица*:');
for i:=1 to k do
begin
for j:=1 to l do
write(a[i,j]:6);writeln;
end;
end.

[alex_fcsm]

program matrica;
     var pol,kol,i,k,l,j:integer;
     a:array[1..100,1..100] of integer;
begin
 write('введите кол-во строк=');readln(k);
 write('введите кол-во столбцов=');readln(l);
 kol:=0;
  for j:=1 to l  do
 begin
  pol:=0;

  for i:=1 to k do
     begin
      write('введите элемент, стоящий на* ',i,'-й строке и ',j,'-м столбце:');       readln(a[i,j]);
      if a[i,j]>0 then
      pol:=pol+1;
     end;
   if pol=k then
      kol:=kol+1;
 end;
 writeln('количество столбцов, содержащих только положительные элеменеты=',kol:5);
 writeln('исходная матрица*:');
  for i:=1 to k do
   begin
    for j:=1 to l do
    write(a[i,j]:6);writeln;
   end;
end.

[president_ml]

спасибо большое
Вы просто спасли меня