Найти сумму всех отрицательных элементов массива

uses crt;
cоnst N=-10;
var mas : array [-1..N] of real S; I: byte;
begin
clrscr;
S:=0; writeln (' заполни массив')
for I:=1 to n do
begin
write (' mas [',i,']);
readln (mas );
if mas <0 then S:=S + mas; end.
writeln ( 'кол-во элементов данного массива,
равных 1, составляет ', K: 4);
writeln (' нажми ENTER!');
readln;
end.

program ololo;
uses crt;
var
a:array[1..50] of integer;
k,i,s,n:integer;
flag:boolean;
begin
clrscr;
write ('введите количество элементов');
readln(n);
writeln('введите элементы');
for i:=1 to n do
read(a[i]);
flag:=false;
s:=0;
k:=0;
for i:=1 to n do
begin
if a[i] <0  then  begin flag:=true; s:=s+a[i]; end;
if a[i]=1 then k:=k+1;
end;
if flag=false then writeln('таких элементов нет');
if flag=true then writeln('сумма',s);
write('количество элементов равных 1-',k);
readkey;
end.

const
 n = 10;
var
 arr: array[1..n] of integer;
 i, sum: integer;
begin
 sum:=0;
  for i:=1 to n do
   begin
    read(arr[i]);
     if arr[i] < 0 then inc(sum, arr[i]);
   end;
 writeln('Сумма отрицательных: ', sum);
end.