Матрица в паскале

[Алeксандр]

Вычислить сумму и число положительных и отрицательных элементов матрицы A[N,M].

[maladoy]

program mas;
uses crt;
var
i,j,ipol,iotr:integer;
x:array[1..100,1..100]of real;
spol,sotr:real;
begin
writeln('vvedite n')
readln(n);
writeln('vvedite m')
readln(m);
spol:=0;
sotr:=0;
ipol:=0;
iotr:=0;
writeln('vvedite elementy:');
for i:=1 to n do 
 for j 1 to m do 
begin
 readln(x[i,j]);
 if x[i,j]<0 then begin sotr:=sotr+x[i,j];iotr:=iotr+1;end;
 if x[i,j]>0 then begin spol:=spol+x[i,j];ipol:=ipol+1;end;
end;
writeln('summa pol',spol:4:4);
writeln('summa otr',sotr:4:4);
writeln('kolvo pol',ipol);
writeln('kolvo otr',iotr);
readln;
end.