zmod. alg. euklidesa

witam, przeszukałem nieco forum, o algorytmie Euklidesa trochę wyczytałem, jednak programista ze mnie strasznie marny a dostałem takie fajne zadanie:

Napisz program liczący NWD na podstawie zmodyfik. algorytmu Euklidesa. Opisz dokładnie każdą linię programu oraz narysuj algorytm do tego.

wszystko fajnie, tylko, ze nie bardzo wiem jak programowo taka modyfikacja wygląda :O tak wiec zrobienie czegokolwiek jest w tym momencie niemożliwe - dla mnie oczywiście.

jeżeli ktoś jest władny mi dopomóc to będzie miło :)

jeżeli przegapiłem coś na ten temat, bardzo przepraszam, szukałem na równe sposoby i nic...

http://pl.wikipedia.org/wiki/Algorytm_Euklidesa
niżej masz

co znaczy "narysować algorytm" ?

zapewne chodzi o narysowanie schematu blokowego :D to nie ja redagowałem treść pytania.

czytalem to na wiki wczesniej jednak nie umiem tego zamienic w program liczacy...

p.s.

program euklides;
var
A,B,Pom: integer;
 begin
  writeln ('podaj A');
  readln (A);
  writeln ('podaj B');
  readln (B);
  writeln ('NWD ', A,' oraz ',B,' wynosi: ');
   while (A<>B) do
    begin
     if (A<B) then
      begin
       Pom:=A;
       A:=B;
       B:=Pom;
      end;
     A:=A-B;
    end;
  writeln (a);
  readln;
end.

może mi ktoś powiedzieć czy ten program jest ok, czy może brak czegoś ? bo muszę go jeszcze opisać co w każdej linijce się dzieje...