Номер 5 пожалуйста ,на Паскаль программу сделайте

пожалуй самая интересная программа которую я тут решал  - спасибо! :)

Код:
var i,x,y,ymax,xmax,max,:integer;
begin
writeln('введите числа');
write('x='); readln(x);
write('y='); readln(y);
for i:=1 to x do  begin 
if (x mod i)=0 then xmax:=i; 
if (y mod i)=0 then ymax:=i; 
if xmax=ymax then max:=ymax;
end;
writeln('наибольший общий делитель =',max);
end.



Пример работы:
введите числа
x=99
y=33
наибольший общий делитель =33

вообще-то есть алгоритм Эвклида