найти ошибку
Program primer;
const
n=s;
var
a: array [1..n] of integer;
i,k: integer;
begin
k:=0;
for i:=1 to n do
begin
a[i]:=-10 + random (20);
write (a[i],' ');
if a [i] < othen then (k);
end;
writeln ;
writeln ('Кол-во отрицательных элементов');
readln;
end.