Вывести из массива числа, которые находятся в степени 2 и 3 - Turbo Pascal

const m = 100;
var i, j, n, q, c: longint;
    x: array [1..m] of longint;
    f, t: boolean;
begin
  repeat
    write('n в диапазоне [1..', m, '];  n = ');
    readln(n)
  until n in [1..100];
  writeln('Введите числа:');
  for i := 1 to n do
    begin
      write('x[', i, '] = ');
      readln(x[i])
    end;
  f := false;
  writeln('Полные квадраты и полные кубы:');
  for i := 1 to n do
    begin
      q := 0;
      c := 0;
      if x[i] > 0
        then begin
          q := trunc(sqrt(x[i]));
          c := trunc(exp(ln(x[i] / 3)))
        end
        else if x[i] < 0
          then c := trunc(-exp(ln(-x[i] / 3)));
      writeln(x[i], ' ', q, ' ', ' ', c);
      t := false;
      for j := 0 to 1 do t := t or (sqr(q + j) = x[i]) or (sqr(c + j) * (c + j) = x[i]);
      f := f or t;
      if t then writeln(x[i], ' ')
    end;
  if not f then write('Не найдены');
  readln
end.