Задан массив из 20 чисел. Описать функцию для распечатки на экране значений элементов ,являющихся полными квадратами — Pascal(Паскаль)

uses crt;
var i,j,k:integer;
      r:real;
      m:array[1..20] of integer;
 begin
  clrscr;
  randomize;
  For i:=1 to 20 do
   begin
     m[i]:=random(100);
     write(m[i]:3);
   end;
  writeln;
  writeln;
  For i:=1 to 20 do
   For j:=1 to 10 do
     if m[i]=sqr(j) then write(m[i]:3);
 readkey;
 end.