Дан массив из 30 произвольных элементов, каждый из которых не больше 100. Найдите максимальный элемент кратный 9.

Const   N = 30;Var   A:array[1..N] of byte;   i,Max:integer;BeginMax:=0;For i:= 1 to N do    Begin    A[i]:=random(101);    if (A[i] mod 9 = 0)and(A[i] > Max) then Max:=A[i];    Write(A[i],' ');    End;WriteLn;if Max = 0 then WriteLn('В массиве нет элементов, кратных 9')else WriteLn('Max = ',Max)End.