Заменить первый положительный элемент массива нулём; умножить все элементы кратные 3, на третий элемент массива

{Дан массив целых чисел A, состоящий из 50 элементов. 
Элементы массива находятся в диапазоне от -10 до 10. 
Заменить первый положительный элемент нулём. 
Умножить все элементы кратные 3, на третий элемент массива. 
Найти максимальный элемент массива. }
Program S9;
 
Var
    A,B:Array[1..50] Of Integer;
    i,max:Integer;
    First:Boolean;
Begin
    Randomize;
    First:=True;
    For i:=1 To 50 Do
        Begin
            A[i]:=Random(20)-10;
            Write(A[i],' ');
            If A[i] > max Then max:=A[i];
            If A[i] > 0 Then
                If First Then
                    Begin
                        A[i]:=0;
                        First:=False;
                    End;
            B[i]:=A[i];         
        End;
WriteLn;
WriteLn;
WriteLn('NEW ARRAY');
WriteLn;
    For i:=1 To 50 Do
        Begin   
            If A[i] Mod 3 = 0 Then
                B[i]:=A[i]*A[3];
            Write(B[i],' ');
        End;
    ReadLn;         
End.

const
 n = 50;
var
 arr: array[1..n] of integer;
 i, max: integer;
 bool: boolean;
begin
 bool:=true;
 max:=1;
  for i:=1 to n do
   begin
    arr[i]:=random(20)-10;
    write(arr[i], ' ');
     if arr[i]>0 then 
      if bool = true then
       begin
        arr[i]:=0;
        bool:=false;
       end;
      if arr[i]>max then max:=arr[i];
   end;
 writeln; 
  for i:=1 to n do
   begin
    if arr[i] mod 3=0 then arr[i]:=arr[i]*arr[3];
    write(arr[i], ' ');
   end;
end.