Задан одномерный массив к (1 ... 10), определить сумму отрицательных элементов

Uses crt; const nmax=100; var a:array [1 ... nmax] of real; i, n: byte; s: real; beginrepeatwrite ('Количество элементов массива, не более ', nmax,', n=') ; readln (n) ; until n in [1 ... nmax]; s:=0; writeln ('Введите массив в строку: ') ; for i:=1 to n do begin read (a[i]) ; if a[i]<0 then s:=s+a[i]; end; writeln; writeln ('Сумма отрицательных элементов = ', s:0:2) ; end.