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

Программа на Pascal

program 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.