Среди положительных элементов вектора найти среднее арифметическое а среди неположительных наибоьшее значение

uses crt;
const nmax=100;
var a:array[1..nmax] of real;
    n,i,imx,k:integer;
    sr:real;
begin
clrscr;
randomize;
repeat
write('Размер вектора до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный вектор:');
k:=0;
sr:=0;
imx:=0;
for i:=1 to n do
 begin
  a[i]:=-9+20*random;{случайные числа из инт.(-9.0..11.0))}
  write(a[i]:6:2);
  if a[i]>0 then{сразу найдем ср. ар. положительных}
   begin
    k:=k+1;
    sr:=sr+a[i];
   end
  else imx:=i;{и номер любого, в данном случае последнего не положительного}
 end;
writeln;
if k=0 then writeln('Положительных элементов нет')
else writeln('Ср. арифм. положительных=',sr/k:0:2);
if imx=0 then writeln('Неположительных элементов нет')
else
 begin
  for i:=1 to n do
  if (a[i]<=0)and(a[i]>a[imx]) then imx:=i;
  writeln('Наибольшее из неположительных=',a[imx]:0:2);
 end;
readln
end.