Как сделать фото в скретч? часть третья

Var
  m, n, nok, t, i: longint;

begin
  Write('Введите через пробел два целых положительных числа- ');
  Readln(m, n);
  {Сначала ищем НОК - наименьшее общее кратное}
  if m = n then begin
    nok := m;
    t := m * m
  end
  else begin
    t := m * n;
    repeat
      if m > n then m := m - n else n := n - m
    until m = n;
    nok := t div m
  end;
  {Теперь умножаем НОК на числа натурального ряда,
   пока не дойдем до величины t=m*n}
  if nok = t then Writeln('Требуемых чисел нет')
  else begin
    i := 1;
    while (nok * i < t) do
    begin
      Write(nok * i, ' ');
      i := i + 1
    end
  end
end.

Тестовое решение:
Введите через пробел два целых положительных числа- 8 120
120 240 360 480 600 720 840

Введите через пробел два целых положительных числа- 35 620
4340 8680 13020 17360

Введите через пробел два целых положительных числа- 7 13
Требуемых чисел нет

Var
mas_in, mas_out : array [1..100,1..100] of integer; 
n,m,i,j:integer;
begin 
write('Введите количество строк n='); readln(n); 
write('Введите количество столбцов m='); readln(m); 
for i:=1 to n do   
for j:=1 to m do   
mas_in[i,j]:=random(99);   
//mas_in[i,j]:=i*(j+i);     
writeln('Исходная матрица'); 
for i:=1 to n do   
begin   
for j:=1 to m do     
write(mas_in[i,j]:2,' ');   
writeln;   
end;      
for i:=1 to n do   
begin   
for j:=1 to m do     
mas_out[i,j]:=mas_in[i,m-j+1];   
end;    
writeln('Конечная матрица'); 
for i:=1 to n do   
begin   
for j:=1 to m do     
write(mas_out[i,j]:2,' ');   
writeln;   
end;
end.