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

uses crt;
  var
    a:array[1..20] of integer;
    s,  i:integer;
 
  begin
    clrscr;
    for i:=1 to 20 do
    readln(a[i]);
    s:=0;
    for i:=1 to 20 do
    if a[i]>0 then  s:=s+a[i];
    writeln(s/20);
    readln;
  end.

uses crt;
var
a:array[1..20] of integer;
s,k,i:integer;
begin
textcolor(3);
textbackground(0);
textcolor(green);
clrscr;
Writeln('Введите числа массива');
for i:=1 to 20 do
readln(a[i]);
s:=0;   
for i:=1 to 20 do
begin
if a[i]>0 then
k:=k+1;
end;
for i:=1 to 20 do
if a[i]>0 then  s:=s+a[i];
writeln('Среднее арифметическое положительных чисел: ',s/k);
readln;
end.

const n=20;
var
  a: array [1..n] of Integer;
  s, k, i: Integer;
begin
  WriteLn('A(',n,'): ');
  for i:=1 to n do Read(a[i]); ReadLn;
  {s:=0; k:=0;}
  for i:=1 to n do if a[i]>0 then begin 
    s:=s+a[i]; Inc(k);
  end;
  if k>0 then WriteLn('Среднее арифметическое положительных чисел: ',s/k)
  else WriteLn('Нет положительных');
  ReadLn;
end.