Question

Очень нужна помощь в редактировании программы. Данная программа должна заменять на число 1000 ТОЛЬКО ПЕРВЫЙ элемент, кратный 4, а у меня заменяются все элементы, кратные 4. Где ошибка?
program zamena;
var akrat,i,n:integer;
a:array[1..1000] of integer;
begin
assign (input,'input.txt');
assign (output,'output.txt');
reset (input);
rewrite (output);
readln(n);
for i:=1 to n do read (a[i]);
akrat:=a[1];
for i:=1 to n do
begin
if a[i] mod 4=0 then
a[i]:=1000;
end;
for i:=1 to n do
writeln(a[i]);
close (input);
close (output);
end.

Answer 1

Program Zamena;
Var akrat,i,n:integer;
      a: Array[1..1000] Of Integer;
Begin
   Assign (input,'input.txt');
   Assign (output,'output.txt');
   Reset (input);
   Rewrite (output);
   Readln(n);
   For i:=1 To n Do Read (a[i]);
      akrat:=a[1];
    For i:=1 To n Do
   If a[i] mod 4=0 then
   Begin
       a[i]:=1000;
       Break;
       End;
   For i:=1 To n Do
   WriteLn(a[i]);
   Close(input);
   Close(output);
End.

Answer 2

var
    i, n: integer;
    a: array[1..1000] of integer;

begin
    readln(n);
    for i := 1 to n do
        read(a[i]);
   
    for i := 1 to n do
        if a[i] mod 4 = 0 then begin
            a[i] := 1000;
            break;
        end;
       
    for i := 1 to n do
        write(a[i], ' ');
end.