Массив: Найти среднее арифметическое первых подряд идущих положительных элементов массива

 label 1;
 var
 x:array [1..1000] of integer;
 s:real;
 i,j,k,n:integer;
 schet: boolean; 
 begin
 1:
 write(' зАДАЙТЕ РАЗМЕР МАССИВА: ');
 readln(n);
 schet:= False;
 if (n<= 0) then goto 1;
 
 for i:= 1 to n do 
    begin
    x[i]:=random(200)-100; //заполнение случ.числами от -100 до 100
    write(x[i],' ');
    if (x[i]>0) and (k=0) then schet := TRUE; // Если есть положительные и положительных еще не было то начинаем подсчет
    
    if (x[i]>0) and (schet = TRUE) then //Если счет начат до считаем сумму s  и кол-во k
                begin
                s:=s+x[i];
                k:=k+1;
                end
                else schet:=False; // Иначе заканчиваем счет
                              
    end;
    
 writeln(' Среднее арифметическое первых подряд идущих ', k ,' чисел = ',s/k);
 
 end.

var a:array[1..n] of real;
    i,j:integer;
    s:real;
begin
writeln('Массив');
for i:=1 to n do
 begin
  a[i]:=-5+10*random;
  write(a[i]:5:2);
 end;
writeln;
i:=2;
while (i<n)and((a[i-1]<=0)or(a[i]<=0))do inc(i);
if i=n then write('В массиве нет идущих подряд положительных элементов')
else
 begin
  s:=a[i];
  j:=i+1;
  while(j<=n)and(a[j]>0)do
   begin
    s:=s+a[i];
    inc(j);
   end;
   s:=s/(j-i-1);
  write('Среднее арифметическое первых положительных элементов идущих подряд=',s:0:2);
 end;
end.