Исправить программу

program zd1;
var i,P,k,n:integer;
a:array[1..999] of integer; 
begin
writeln('Введите количество элементов массива ');
readln(n);
for i:=1 to n do 
begin
readln(a[i]);
end; 
writeln('Массив');
for i:=1 to n do 
begin
write(a[i]:3);
end;
k:=n div 2;
for i:=1 to k do 
begin
if i mod 3=0  then 
P:=P*a[i];
end;
for i:= k to n do 
begin
a[i]:=a[i]*P;
end;
for i:=1 to n do 
begin
writeln(a[i]);
end;
end.

program zd1;
 
var
  i, P, k, n, cnt: integer;
  a: array[1..999] of integer;
 
begin
  writeln('Введите количество элементов массива: ');
  readln(n);
  for i := 1 to n do 
  begin
    write('a[',i,']=');
    readln(a[i]);
  end;
 
  writeln('Исходный массив');
  for i := 1 to n do 
    write(a[i],' ');
  writeln;               //
 
  k := n div 2;
  P := 1; cnt := 0;      //
  for i := 1 to k do 
    if a[i] mod 3 = 0  then 
    begin
      P := P * a[i];
      cnt := cnt + 1;
    end;
  if cnt = 0 then writeln('В первой половине массива нет элементов, кратных 3')
  else begin
  for i := k + 1 to n do 
    a[i] := a[i] + P;     //
  writeln('Полученный массив:');
  for i := 1 to n do 
    write(a[i],' ');
  end;
end.