Переписать код с использованием подпрограмм - Turbo Pascal

Формулировка задачи:

Мне тут помог модер "КонецСвета" написать, но теперь нужно написать с подпрограммами (c процедурой):

VAR
 N1,N2,M,i:LongInt;
 
 BEGIN
 Write('Wwedite N1= ');
 ReadLn(N1);
 Write('Wwedite N2= ');
 ReadLn(N2);
 if (N1=0) and (N2=0) then writeln('Nevernuj wwod');
 if N1>N2 then M:=N1 else M:=N2;
 i:=M-1;
 Repeat
 Inc(i);
 Until ((i mod N1)=0) and ((i mod N2)=0);
 Writeln('Naimenshee obschee kratnoe= ',i);
 end.

пожалуйста, выручайте!

Решение задачи: «Переписать код с использованием подпрограмм»

Листинг программы

uses crt;
procedure NOK(n1,n2:longint;var nk:longint);
var m:longint;
begin
if n1>n2 then m:=n1 else m:=n2;
nk:=m-1;
repeat
 inc(nk);
until ((nk mod n1)=0) and ((nk mod n2)=0);
writeln('Naimenshee obschee kratnoe= ',nk);
end;
var a,b,nk:longint;
begin
clrscr;
repeat
writeln('Wwedite 2 naturalnyh chisla:');
readLn(a,b);
until(a>0)and(b>0);
NOK(a,b,nk);
readln
end.

Объяснение кода листинга программы

В начале кода подключается библиотека crt.
Создается процедура NOK, которая принимает два целых числа и одно целочисленное переменное nk.
Внутри процедуры объявляются три переменные: m, nk и n1.
Сравниваются n1 и n2. Если n1 больше n2, то значение переменной m присваивается n1, иначе - n2.
Значение переменной nk присваивается разности между m и 1.
Затем начинается цикл повторения, который выполняется до тех пор, пока nk не станет кратным как n1, так и n2.
В каждой итерации цикла значение nk увеличивается на 1.
После завершения цикла выводится сообщение с результатом.
В основной части программы с помощью функции readLn считываются два целых числа от пользователя и сохраняются в переменных a и b.
Затем вызывается процедура NOK, передавая в нее a, b и nk.
После окончания вычислений выводится сообщение с результатом.
Конец программы.