Описать функцию square(k) логического типа, возвращающую true, если целый параметр k(> 0) является квадратом некоторого числа, и false в противном случае. паскаль

Var k: integer;
function square(k: integer): boolean;
begin
     if sqr(trunc(sqrt(k))) = k  {Проверяем, является ли квадрат округлённого квадратного корня самим числом}
     then
         square := true
     else
         square := false;end;
begin
     read(k);
     writeln(square(k));
end.