Исправить код

Const n=5;
var a:array[1..n] of integer;
    i,k:integer;
begin
  randomize;
  write('исходный массив: ');
     k:=1;
     for i:=1 to n do
     begin
          a[i]:=Random(20)+1;
          write(a[i],' ');
     end;
     begin
     write([i]);
if a[i] mod 3=0 then k:=k+1;
end;
writeln;
write('кратные 3: ',k);
for i:=1 to n do
if (a[i] mod 3=0) then a[i]:=a[1];
writeln; 
     for i:=1 to n do
          write(' a[',i,']=',a[i]);
end.

Const n=5;
type mas=array[1..n] of integer;
procedure poisk(a:mas;var k:integer);
var i:integer;
begin
writeln('Элементы кратные 3');
k:=0;
for i:=1 to n do
if a[i] mod 3=0 then
 begin
  write(a[i],' ');
  k:=k+1;
 end;
writeln;
if k=0 then writeln('Элементов кратных 3 нет')
else writeln('Их количество=',k);
end;
procedure zamena(var a:mas);
var i:integer;
begin
writeln('Замена кратных 3 на первый элемент');
for i:=1 to n do
 begin
  if a[i] mod 3=0 then a[i]:=a[1];
  write(a[i]:3);
 end;
end;
var a:mas;
    i,k:integer;
begin
randomize;
writeln('исходный массив: ');
for i:=1 to n do
 begin
  a[i]:=Random(20)+1;
  write(a[i],' ');
 end;
writeln;
poisk(a,k);
if k>0 then zamena(a)
end.