Найти НОД длинного числа

program NOD;
var i,m,s1,q,q1,c,s,code,a,a1:integer;
    b,w,w1,b1:array[1..100] of integer;
    n,n1:string;
begin                                                  
read(n,n1);                                                                           
a:=length(n);
a1:=length(n1);
for i:= a downto 1 do
val(n[i],b[a-i+1],code);
for i:=a1 downto 1 do
val(n1[i],b1[a1-i+1],code);
 
q:=a;
q1:=a1;
if a=a1 then c:=a;
while q<>q1 do begin
m:=1;
s:=0;
if a>a1  then begin
c:=a1;
   for i:=a1 to a do begin
    s:=s+b[i]*m;
    m:=m*10;
   end;
 
    while b1[a1]<>s do  begin
      if b1[a1]<s then
         s:=s-b1[a1]
      else b1[a1]:=b1[a1]-s;
      end;
       n[a1]:=chr(b1[a1]+48);
       delete(n,a,1);
       q:=q-1;
    end
else begin
c:=a;
   for i:=a to a1 do begin
    s:=s+b1[i]*m;
    m:=m*10;
   end;
     while b[a]<>s do  begin
        if b[a]<s then
          s:=s-b[a]
        else b[a]:=b[a]-s;
     end;
     n1[a]:=chr(b[a]+48);
     delete(n1,a1,1);
     q1:=q1-1;
end;end;
i:=1;
s:=0;
m:=1;
s1:=0;
while n<>n1 do
begin
for i:=a downto 1 do
val(n[i],w[i],code);
for i:=a downto 1 do
val(n1[i],w1[i],code);
for i:=a downto 1 do
begin
s:=s+m*w[i];
m:=m*10;
end;
m:=1;
for i:=a1 downto 1 do
begin
s1:=s1+m*w1[i];
m:=m*10;
end;
while s<>s1 do begin
if s>s1 then
s:=s-s1
else s1:=s1-s;
end;
for i:= c downto 1 do
n:=chr(s+48);
for i:= c downto 1 do
n1:=chr(s1+48);
end;
write(n);
end.