дано 10 чисел вывести сумму отрицательных элементов массива

программа на Pascalprogram xxx;var a: array [1..10] of integer;   i, s : integer;begin  writeln (' введите элементы массива');  for i:=1 to 10 do    readln (a[i]);  s:=0;  for i:=1 to 10 do    if a[i] < 0 then s:=s+a[i];  if s=0 then wrwteln (' отрицательный чисел - нет')     else writeln ('сумма отриц. чисел='. s)end.