Псевдокод массива
 

Нужно написать псевдокод вида:
1.Ввод i,j.
2.P:=1
3. aij.<0
4.p:=p* aij.
5.Вывод p
6.Конец
Только по программе паскаля :
program p2;
uses crt;
const
n=8;
m=7;
var
i,j,p:integer;
matrix:array[0..n,0..m] of integer;
begin
p:=0;
for i:=0 to n do
if i mod 2 = 1 then
for j:=0 to m do
p:=p+matrix[i,j];
writeln('answer: ',p);
readln;
end.
Заранее спасибо

1. Начало
2. n=8
3. m=7
4. matrix: array[0..n,0..m] of integer; i,j,p:integer;
5. p:=0
6. для i от 0 до n
6.1. если i mod 2=1 то 6.1.1
6.1.1. для j от 0 до m
6.1.1.1. p:=p+matrix[i,j]
7. Вывод p
8. Конец