Задача Pascal - двумерный массив целых чисел А

[flo90]

Задан двумерный массив целых чисел А размером N на M, состоящий из положительных и отрицательных чиселю Найти количество отрицательных элементов этого массива делящихся на 2 , и их сумму.( решить матрицей)

Вот что есть :

uses crt; 
cоnst n=10; 
var a:array[1..n,1..n] of integer; 
i,j, Sum,k:integer; 
begin 
clrscr; 
Sum:= 0; 
for i:=1 to n do 
begin 
for j:=1 to n do 
begin 
a[i,j]:=5 - random(10)+1; 
write(a[i,j]:3); 
if (a[i,j] mod 2 = 0) and (a[i,j] < 0) then 
begin 
Sum:= Sum + a[i,j]; 
end; 
end; 
writeln; 
end; 
writeln ('Answer is :', Sum); 
end.

только не работает что не так? И каким вторым способом можо решить эту задачу матрицей( по возможности напишите код). Заранее спасибо!



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[ByAlex]

Нормально у вас все работает, просто в конце программы напиши readln и все, как я понял у вас программа сразу закрывается. readln будет задерживать программу, чтобы вы увидели результат выполнения!

uses crt;
const
  n=5;
var
  a:array[1..n,1..n] of integer;
  i,j, Sum,k:integer;
begin
  Sum:= 0;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=5 - random(10)+1;
      write(a[i,j]:3);
      if (a[i,j] mod 2 = 0) and (a[i,j] < 0) then
        Sum:= Sum + a[i,j];
    end;
    writeln;
  end;
  writeln ('Answer is :', Sum);
  Readln;
end.