среди членов последовательности 1+n,2+n(в квадрате), 3+n(в кубе),4+n(в четвертой степени).....

[amikulia]

среди членов последовательности 1+n,2+n(в квадрате), 3+n(в кубе),4+n(в четвертой степени).....найти и вывести первое число, больше M.
что здесь не так???

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.

[Mad_Cat]

var z,n,m,s:real;
k:integer;
begin
write('Введите число для суммы n=');
readln(n);
write('Введите число-предел m=');
readln(m);
z:=1;
k:=0;
s:=0;
while s<=m do
begin
k:=k+1;
z:=z*n;
s:=k+z;
end;
writeln('Первое число больше ',m:0:1,'=',s:0:1);
readln
end.