Среди членов последовательности (1+n), (2+n)^2, (3+n)^3, (4+n)^4. Найти и вывести первое число, большее M- Pascal(Паскаль)

uses crt;

var
  n, m, s: real;
  k: integer;

begin
  clrscr;
  write('Введите число для суммы n=');
  readln(n);
  write('Введите число-предел m=');
  readln(m);
  if 1 + n > m then
    s := m
  else
  begin
    k := 1;
    s := k + n;
    while s <= m do
    begin
      k := k + 1;
      s := k + n * n;
    end;
  end;
  write('Первое число больше ', m:0:1, '=', s:0:1);
  readln

end.