Среди членов последовательности 1,1+N ,1+2N ,1+3N ,… найти и вывести первое число большее М.N и M вводятся — Pascal(Паскаль)

uses CRT;
VAR
 n, m, sum: Longint;
BEGIN
 WriteLn('Введите два целых положительных числа N и M. N должно быть меньше M');
 WriteLn('Введите N: '); ReadLn(N);
 WriteLn('Введите M: '); ReadLn(M);
 if (N <= 0) or (M <= 0) or (N > M) then begin
  WriteLn('Неправильный ввод: N= ',N,', M= ',M);
  WriteLn('Нажмите любую клавишу');
  ReadKey;
  Halt(1)
 end;
 sum := 1;
 repeat
   sum := sum + N;
 until M > sum;
 WriteLn('Первое значение 1+k*N, большее M, равно: ', sum);
END.