помогите набрать задачу в паскале

если взять к примеру массив 10х10 то будет где то так:
var
a:array[1..10,1..10] of Integer;
i,j,sum:Integer;
begin
sum:=0;
Randomize;
for i:=1 to 10 do
for j:=1 to 10 do
begin
a[i,j]:=Random(20)-10;
write(a[i,j],' ');
end;

for i:=1 to 10 do
for j:=1 to 10 do
if j mod 2=1 then Continue
else sum:=sum+a[i,j];
Writeln;
Writeln('summa elementov : ',sum);
Readln;
end.
ЗЫ: Прогу писал на делфи, по идее должно работать и в паскале

Вот тут архив с текстовым документом, ну и файлом Pascal в которых содержится код, на случай если тут код отобразится "криво".
Ну а так:

program qwerty;
uses crt;
const N=4; //ucazyvaet kol-vo strok/stolbzov
var sum,i,j,k:integer;
a: array [1..N,1..N] of integer; //ob'yavlenie massiva "a"

BEGIN
writeln('Massiv: ');writeln;

//Zapolnenie massiva
for i:=1 to N do
begin
For j:= 1 to N do
begin
a[i,j]:=random(21)-10; //prisvaivaem elementu sluchaynoe znach
write(a[i,j]:3); write('; ');//Vyvod massiva
end;
writeln;
end;

//Podschet summy elementov v chetnyh stolbzah
i:=0;
while i (знак меньше) N do
begin
i:=i+2;
For j:= 1 to N do sum:=sum+a[j,i];
end;
writeln;writeln('Summa elementov v chetnyh stolbzah: '+inttostr(sum));
END.



by