нужно доделать

Program Recursion_16;
uses crt;
procedure intro;

begin
textcolor(red);
writeln('                                    Рекурсия');
writeln;
writeln('  Написать программу, которая вычисляет наименьшее К, ');
writeln('  в такое что заданное натуральное N представлено в виде ');
writeln('  суммы К квадратов натуральных чисел.');
writeln;
end;

function SumSqr(n: integer): integer;

begin
  if n=0 then sumsqr:=0
  else
  SumSqr:=1+SumSqr(n-sqr(trunc(sqrt(n))));

end;

var
N: integer;
begin
textbackground(green);
clrscr;
intro;
textcolor(white);
write('Введите N: ');
readln(n);
if n>0 then
begin
write('К=',SumSqr(n));
end
else
begin
write('Неверный ввод');
end;
readln;
End.