Даны целые положительные числа а1, а2, …, an. Найти среди них те, которые являются квадратами некоторого числа m — Pascal(Паскаль)

uses crt;
var a:array[1..100] of word;
     i,n:byte;
     m:word;
begin
 clrscr;
 writeln('m');
 readln(m);
 
 writeln('n');
 readln(n);
 
 for i:=1 to n do
  readln(a[i]);
 
 m:=m*m;
for i:=1 to n do
  if a[i]=m then writeln('Chislo ',a[i]);  
readln;
end.