В переменную последовательно вводятся десять чисел. Определить среднее арифметическое отрицательных чисел — Pascal(Паскаль)

uses crt;
var
 a,k,i:integer;
 s:real;
begin
 clrscr;
 s:=0;k:=0;
  for i:=1 to 10 do
   begin
    write('a',i,'=');readln(a);
     if a<0 then
      begin
       s:=s+a;
       inc(k);
      end;
   end;
 s:=s/k;
 writeln('Sredn arifm otr chisel=',s);
 readln
end.

uses crt;
const n=10;
procedure Sred(var s:real);
var a,k,i:integer;
begin
s:=0;k:=0;
for i:=1 to n do
 begin
  write('a',i,'=');readln(a);
  if a<0 then
   begin
    s:=s+a;
    inc(k);
   end;
 end;
if k=0 then write('В последовательности нет отрицательных чисел')
else
 begin
  s:=s/k;
  write('Сред. арифм. отрицательных=',s:0:2);
 end;
end;
var sr:real;
begin
clrscr;
Sred(sr); 
readln
end.