Найти наименьшее целое число k, которое при возведении в четвертую степень станет больше 1500 — Pascal(Паскаль)

Program PascalGuru;

function pow(x, n: integer): integer;
var
  i, r: integer;
begin
  r := x;
  for i := 1 to n - 1 do
    r := r * x;
  pow := r;
end;

var
  p: integer;
  k: integer;

  { --------------- }
begin
  k := 0;

  repeat
    inc(k);
    p := pow(k, 4);
  until p > 1500;

  writeln('K= ', k);

  readln;

end.