В тому й річ. Що мені треба частину другого коду(де відбувається знаходження остачі) замінити першим кодом. Можете написати кінцевий варіант?

Викладач сказала, перший код не змінювати а в другому коді замінити частину, де відбувається пошук остачі через mod першим кодом.

Допоможете? Які рядки в другому коді треба замінити першим кодом?

А навіщо ви тут? Щоб допомагати чи ось таку дурню писати? Яка вам різниця, чий це код?

Мені є різниця. Бо люди на цьому форумі належать до двух великих груп: одні хочуть щось зробити, в них не виходить і вони приходять сюди питати, а інші навіть не намагаються і думають, що їм тут зобов'язані допомогти. Допомога першим дає плюсики в карму, а другим допомогти неможливо, вони, отримавши допомогу, вважають, що можуть робити все менше і менше і все більше звалювати на інших, і жодної користі ані їм, ані суспільству така допомога не дає.
Втім, якщо ви самі впоралися - радий за вас. Модератори, я пропоную зробити попередження vanekulykov, але не банити, він не безнадійний.
Так, і

function NSD(n,m:integer):integer;{замініть на LongWord, якщо вже так кортить додатні використовувати}
begin
  if n = m then result := n
  else          result := NSD( abs( n - m ), min( n, m ) )
end;

var a,b:integer;
begin
  writeln( 'Введіть 2 натуральні числа' );
  readln( a, b );
  writeln( 'НСД=', NSD( a, b ) );
  readln
end.