Напишите на паскале. : найти сумму тех элементов массива а[1 .. n], которые удовлетворяют условию |ai| < i2.

Const m = 100;
var a: array[1..m] of integer;
    i,n,s: integer;
begin
  write('N = ');  readln(n);
  randomize;
  writeln('массив:');
  s:=0;
  for i:=1 to n do
  begin
    a[i]:=random(-50,50);
    write(a[i],' ');
    if abs(a[i])<i*i then s:=s+a[i];   
  end; 
  writeln;
  writeln('сумма: ',s);
end.