задан одномерный массив к (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.