найти сумму чисел>0 в матрице.язык делфи

[naBel]

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a:array[1..99,1..99] of real;
n,m,i,j,ij:byte;
sum:real;
f:text;

begin
writeln('BBedute n,m');
readln(n,m);
for i:=1 to n do
for j:=1 to m do begin
if i<(n-j) then
a[i,j]:=cos(n-i-j)
else
a[i,j]:=sin(i-j);
end;
assign(f,'1.pas');
rewrite(f);
for i:=1 to n do begin
for j:=1 to m do
write(f,a[i,j]:8:2);
writeln(f);
end;
sum:=0;
For j:=1 To n Do begin
A[1,j]:=ij;
if ij>0 then ij:=a[i,j];
sum:=sum+ij
end;
writeln(f,'sum:',sum:8:2);
close(f);
end.
подскажите что не так,и если не трудно напишите как должно быть правильно

[СтёпышЪ]

Массив я так понял берется из некого файла? или вводится?

часть кода для нахождения суммы чисел больших нуля:

....
for i:=1 to n do
	for j:=1 to m do 
	begin
		if a[i,j]>0 then sum:=sum+a[i,j];
	end;
...

P.s. оформите код оп правилам используя специальный тег =)