Найти среднее арифметическое элементов А(а1, а2,…,а10), предшествующих первому отрицательному элементу а[i]- Pascal(Паскаль)

const
n=10;
var
i,f,k,s:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do
  begin
      a[i]:=11-random(20);
      write(' ',a[i]:3);
  end;
writeln();
writeln('-------');

if a[1]<0 then write('До первого отрицательного нет элементов')
else
 begin
  f:=0;
  for i:=1 to 10 do
  if a[i]<0 then f:=1
  else if f=0 then
   begin
    inc(k);
    s:=s+a[i];
   end;
  if f=0 then writeln('Отрицательных в массиве нет, вычислено среднее всего массива')
  else write('Среднее до первого отрицательного=');
  writeln (s/k:0:2);
 end;

writeln('-------');

end.