Написать подпрограмму поиска количества K элементов массива, кратных 3

Program zd1;
Type mas=array[1..10] of real;
Var
n,i:real;
K: real;
a:mas;
 
Procedure poisk(n1:integer;Var a1:mas; Var K1:real);
Var i1:integer;
 
begin 
k1:=0;
for i1:=1 to n1 do 
 
if a[i] mod 3=0 then
k1:=k1+1;
 
end;
 
begin {k}
writeln('введите число элементов');
readln(n);
for i:=1 to n do
begin
write('a[',i,']');
read(a[i]);
end;
 
poisk(n,a,sr);
for i:=1 to n do
begin
if a[i] mod 3=0 then 
a[i]:=k1;
writeln(a[i]);
end;
end.

program zd1;
 
const m = 10;
type mas = array [1..m] of integer;
 
procedure poisk(n1: integer; var a1: mas; var k1: integer);
var i1: integer;
begin
k1 := 0;
for i1 := 1 to n1 do
if a1[i1] mod 3 = 0 then inc(k1)
end;
 
var n, i, k: integer;
    a: mas;
 
begin
  repeat
    write('Введите количество элементов массива (1..', m, '): ');
    readln(n)
  until n in [1..m];
  writeln('Введите элементы массива: ');
  for i := 1 to n do
    begin
      write('a[', i:2, '] = ');
      readln(a[i])
    end;
  poisk(n, a, k);
  if k = 0
    then writeln('Нет элементов, кратных трём.')
    else begin
      writeln('Количество элементов массива, кратных трём: ', k);
      writeln('Элементы массива, кратные трём, заменены на их количество:');
      for i := 1 to n do
        begin
          if a[i] mod 3 = 0 then a[i] := k;
          writeln('a[', i:2, '] = ', a[i])
        end
    end;
  write('Нажмите <Enter> для выхода из программы.');
  readln
end.