Выполнив предыдущее задание, проведите трассировку алгоритма Евклида для нахождения НОД чисел 128 и 56

Извиняюсь за полусишный код procedure swap(var a:integer; var b;integer) var c:integer; begin c := a; a := b; b := c; end; function nod(a, b:integer):integer; begin while b <> 0 do begin  writeln(a, ' ', b); // тут трассировка выводится  a = a mod b; swap(a, b); end end; begin writeln(nod(128,56)); end.