Вывести те, запись значений которых в восьмеричной системе счисления содержит ровно три разряда

const zn:string[8]='01234567';
      m=10;
function DecToOct(n:integer):string;
  var s:string;
  begin
    s:='';
    while n>0 do begin
      s:=zn[n mod 8+1]+s;
      n:=n div 8;
    end;
    DecToOct:=s;
  end;
var
  a:array [1..m] of integer;
  i:byte;
  s:string;
begin
  randomize;
  write('Массив: ');
  for i:=1 to m do begin
    a[i]:=100+random(101); write(a[i],' ');
  end;
  writeln; write('Удовлетворяют условию: ');
  for i:=1 to m do begin
    s:=DecToOct(a[i]);
    if (length(s)=3) and (s[3]='4') then
      write(a[i],'(',s,') ');
  end;
end.

const m = 10;
var a: array[1..m] of integer;
    i: byte;
begin
  randomize;
  writeln('Массив: ');
  for i := 1 to m do
    begin
      a[i] := 100 + random(101);
      write(a[i]:4)
    end;
  writeln;
  writeln('Удовлетворяют условию: ');
  for i := 1 to m do
    if (a[i] >= 64) and (a[i] <= 511) and (a[i] mod 8 = 4)
      then write(a[i]:4)
end.

      then write(a[i]:4, ' (', a[i] div 64, a[i] div 8 mod 8, a[i] mod 8, ')')

const m = 10;
var a: array[1..m] of integer;
    i: byte;
    found: boolean;
begin
  randomize;
  writeln('Массив: ');
  for i := 1 to m do
    begin
      a[i] := 100 + random(101);
      write(a[i]:4)
    end;
  writeln;
  writeln('Элементы массива, удовлетворяющие условию: ');
  found := FALSE;
  for i := 1 to m do
    if (a[i] >= 64) and (a[i] <= 511) and (a[i] mod 8 = 4)
      then begin
        write(a[i]:4, ' (', a[i] div 64, a[i] div 8 mod 8, a[i] mod 8, 'Q)');
        found := TRUE
      end;
  if not found then write('не найдены')
end.