помогите сделать циклический алгоритм
Дана последовательность из М чисел. Все отрицательные среди них числа возвести в квадрат и найти их сумму

Вопрос школьника по предмету Информатика

program SumSeq;

{$APPTYPE CONSOLE}

uses

SysUtils;

//const m:Integer ;

var

i, j, m, s:Integer;

n: array of Integer;

begin

s:=0;

Writeln(m);

Writeln(‘vvedite m’);

Readln(m);

SetLength(n,m);

for i:=0 to m do

begin

j:=Random(10);

if j<5

then n[i]:=-1*j

else n[i]:=j;

write(n[i], ‘ ‘)

end;

Writeln;

Writeln(‘To continue push >>ENTER’);

Readln;

for i:=0 to m do

begin

if n[i]<0

then s:=s+sqr(n[i])

end;

writeln(‘s=’,s);

readln

{ TODO -oUser -cConsole Main : Insert code here }

end.

Сначала ввожу последовательность через генератор случайных чисел, а потом нахожу сумму отрицательных элементов последовательности.

Проверил работоспособность программы в Delphi 7.