помогите пожалуйста редактировать алгоритм в паскале

[elena68r]

задача.
массив :х(50). определить  сумму отрицательных элементов массива х кратным трем
условия и ограничения: -50<Xi<50


вот мой алгоритм решения
program sum;
var i, mod3, sum_otr, n: integer;
x:array [1..30] of real;
begin
writeln(' vvedite znachenie n');
read (n);
randomize;
sum_otr:=0;
for i:=1 to n do
if <0 and (xmod3=0)
then sum_otr:= sum_otr +x;
end;
write (' сумма отрицательных элементов=' , sum_otr:0:3);
end.

[Данила]

program sum;
var i, sum_otr, n: integer;
x:array [1..30] of real;
begin
writeln(' vvedite znachenie n');
read (n);
randomize;
sum_otr:=0;
for i:=1 to n do begin
if ((x[ i ]<0) and (x[ i ] mod3=0))
then sum_otr:= sum_otr +x [ i ];
end;
write (' сумма отрицательных элементов=' , sum_otr:0:3);
end.