Kiểm tra số chính phương trong mảng 1 chiều

USES crt;
  TYPE ArrInt = ARRAY[1..250] OF INTEGER; 
  VAR n,i,x : INTEGER;
        a: ArrInt;
  BEGIN
  clrscr;
  write('Nhap so phan tu: ');
  readln(n);
  FOR i:=1 TO n DO
  BEGIN
    write('Phan tu thu ',i,'= ');
    readln(a[i]);
  END;
  writeln('Cac so chinh phuong co trong mang:');
  FOR i:=1 TO n DO
  BEGIN
    x:=trunc(sqrt(a[i]));
    IF sqr(x)=a[i] THEN
      write(a[i]:4);
  END;
  readln;
  END.