Которую нужно решить на паскале методом while. ввести число n и m, увеличить по +1 n до m циклом и вывести каждый шаг,

Var n,m:integer;
begin
readln(n,m);
while n<>m do begin
n:=n+1;
writeln(n);
end;
end.

Var
  n,m:integer;
Begin
  write('Введите числа n,m (m>или=n) ');
  Readln(n,m);
  if m>=n then while m>=n do Begin
    write(n,' ');
    n:=n+1;
  End else write('Неправильно введён диапазон');
End.