нахождение наибольшего общего делителя

Uses CRT;
const n=5;
var a,b,d1,c1:Integer;
function NOD(x,y:Integer):Integer;
 begin
  if x<>0 then NOD:= NOD(y mod x,x) else NOD:= y;
 end;
 {}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{{}{}{}{}{}{}{}{{}{}{}
var n1,n2,p,i:Integer;
Begin
{НОД}
 
 Writeln;
 Writeln('Ищем (НОД) по алгоритму Евклида');
 WriteLn('Введите a и b: ');
 Readln(a,b);
 Writeln('НОД ',a,' и ',b,' = ', NOD(a,b));
 
 Writeln;
 Writeln('Ищем факториал');
 p:=1;
 for i:=1 to N do
 p:=p*i;
 Writeln('ФАкториал - ' , p);
End.

var fact,s,k,x,y,n,i:longint;
begin writeln('vvedite chisla u kotorih vi ishete obshii delitel:  ');readln(x,y);
if x mod y = 0 then writeln('NOD=',y) else if y mod x = 0 then writeln('NOD=',x);
if x>y then n:=y else n:=x;
k:=0;
for i:=1 to n do
if (x mod i = 0) and (y mod i = 0) then k:=i;
writeln('NOD=',k);
writeln('vvedite ickomii factorial');readln(fact);
s:=1;
for i:=1 to fact do
s:=s*i;
writeln('factorial =',s);
readln;
 
 
 
end.