Дано целое число N – количество элементов массива. Вывести те цифры элементов массива, которые содержатся хотя бы в одном из разрядов сотен.Если таких цифр нет, выведите сообщение "Таких цифр нет".Паскаль abc

var    A:array of integer; // Динамический массив    n,i:integer;    flag:boolean;  begin   readln(n);   SetLength(A,n); // Выделение памяти    randomize;   for i:=0 to n-1 do      A[i]:=random(1000);   flag:=false;   for i:=0 to n-1 do    if (A[i] div 100)>0 then       begin       write (A[i]:4);       flag:=true;      end;   if not(flag) then writeln('Таких цифр нет');  end.