Даны два числа. найти их наибольший общий делитель. (паскаль)

Var n, k, nod: integer; begin         readln(n, k);         if (n > k) then         begin                   nod: =k;         end;                 if (n < k) then         begin                   nod: =n         end;                 if (n = k) then         begin                   nod: =n;         end;         while(true) do         begin                   if (k mod nod < > 0) then nod: =nod-1;                   if (n mod nod < > 0) then nod: =nod-1;                   if (k mod nod = 0) and (n mod nod = 0) then break;         end;                 writeln('наименьший общий делитель: ', nod); end.

На каждом шаге имеет смысл менять два горшка с разными цветами. поэтому всё получится, если роз, стоящих на чётных местах, будет столько же, сколько и фиалок на нечётных. при этом если тех и других k, то всего нужно k перестановок. код (pascalabc.net 3.2): begin   var n : = readinteger();   var roses : = new integer[n];   var count_roses : = 0;   var violets : = new integer[n];   var count_violets : = 0;   for var i : = 1 to n do   begin     if readinteger() = i mod 2 then       if i mod 2 = 0 then       begin         roses[count_roses] : = i;         inc(count_roses);       end       else       begin         violets[count_violets] : = i;         inc(count_violets);       end;   end;   if count_roses = count_violets then   begin     writeln(count_roses);     for var i : = 0 to count_roses - 1 do       println(roses[i], violets[i]);   end   else     write(-1) end.