exitcode 215 в чем проблема?

[anton.dasuik]

Пираты и монеты
n пиратам удалось справедливо разделить клад из m золотых монет - каждый получил свою часть согласно своему пиратскому рангу и стажу. Самый молодой пират взял a монет, а каждый следующий пират брал на одну монету больше, чем предыдущий его коллега. Последним был капитан, которому досталось вдвое больше от запланированного, очевидно, что после него монет больше не осталось.

Сколько было пиратов вместе с капитаном, если известны a и m. Так как капитан без команды просто пират, то n > 1.

var
a,n,m,k,sum : longint;
BEGIN

readln(a,m);
n := 2;
sum := a;
while k <> 1 do begin
if sum + 2*a = m then begin
writeln(n);
break;
end else begin
n := n + 1;
a := a + 1;
sum := sum + a;
end;
end;


END.

[Develop]

может быть так надо ?

var a,m,n,sum : longint;

BEGIN
  readln(a,m);
  n := 1;
  sum := a;
  repeat
     n := n + 1;
     a := a + 1;
     sum := sum + a;
  until (sum + a) >= m;
  writeln(n);
END.

[anton.dasuik]

Спасибо огромное!