Дан целочисленный массив из 30 частей. Элементы массива могут принимать целые

Var
  i,n,max:integer;
  a:array[1..30]of integer;
begin
writeln('Начальный массив:');
for i:=1 to 30 do
  begin
  a[i]:=random(0,1000);
  writeln(a[i]);
  if (a[i]gt;9) and (a[i]lt;100) then
     begin
     if max=0 then max:=a[i];
     if a[i]gt;max then max:=a[i];
     end;
  end;
for i:=1 to 30 do
  if a[i]=max then n:=n+1;
if maxgt;0 then writeln('n=',n)
  else writeln('Таких нет');
end.