Доработайте пожалуйста,не могу написать,чтобы выводил наибольшее число,которое кратно 3 из линейного массива)
Program b11;
Var i,p:integer;
B:array [1..10] of integer;
Begin
randomize;
p:=0;
for i:=1 to 10 do begin
B[i]:= random(10) ;
write(B[i],' ');
end;
for i:=1 to 10 do
if B[i] mod 3 = 0 then
p:=p+B[i];
writeln (' ');
writeln('сумма чисел кратных 3 = ',p);
readln;
end.

program b11;var  i, p, max: integer;   B: array [1..10] of integer;begin  randomize;   p := 0;  for i := 1 to 10 do   begin    B[i] := random(10);     write(B[i], ' ');   end;  for i := 1 to 10 do     if B[i] mod 3 = 0 then begin      p := p + B[i];       if b[i] > max then max := b[i]    end;  writeln;  writeln('Сумма чисел кратных 3 = ', p);   writeln('Максимальное число, кратное 3 = ', max);  readln;end.