Программа на матрицы

[president_ml]

прошу прощения. таекст исправленый
Посчитать количество столбцов в матрице А, размерностью KxL, которые вмещают в себе только положительные элементы.
Вывести результат подсчета и входящую матрицу на экран.

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

ошибка где-то здесь
begin
write('введите элемент ',i,'й строки и ',j,'-го столбца:');
readln(a[i,j]); if a[i,j]>Eps then
kol:=kol+1;
end;

[RUSt88]

а язык какой?

[Stilet]

А вдруг так?:

MODULE matr;
IMPORT StdLog,ObxRandom;
CONST
 k=4;l=5;
VAR a:ARRAY(k) OF ARRAY(l) OF INTEGER;
 b:ARRAY(l) OF BOOLEAN;

PROCEDURE do*;
VAR i,j,cnt:INTEGER;
BEGIN StdLog.Clear;
 FOR i:=0 TO LEN(b)-1 DO b[i]:=TRUE;END;
 FOR i:=0 TO LEN(a)-1 DO
  FOR j:=0 TO LEN(a[i])-1 DO
   a[i,j]:=SHORT(ENTIER(90-ObxRandom.Uniform()*100));
   IF b[j]&(a[i,j]<0) THEN b[j]:=FALSE;END;
   StdLog.Int(a[i,j]);StdLog.Tab;
  END;StdLog.Ln;
 END;
StdLog.Ln;cnt:=0;

  FOR j:=0 TO LEN(b)-1 DO 
   IF b[j] THEN INC(cnt);END;
  END;StdLog.Ln;
  StdLog.Int(cnt);StdLog.Tab;
END do;

END matr.
matr.do;

Результат:

18 56 34 -3 58
5 89 71 40 36
84 49 72 76 64
35 65 7 28 1


4