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

var n,n1:string;
begin
n:='11';
n1:='1';
if n>n1 then writeln('da') else writeln('net');
end.

var n,n1:string;
begin
n:='421';
n1:='1211';
if n>n1 then writeln('da') else writeln('net');
end.

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);
while n<>n1 do begin
if n>n1 then begin
 
       for i:=1 to a do
 
         begin
           s:=b[i]-b1[i];
              if s<0 then
                 begin
                   b[i]:=10+s;
                   b[i+1]:=b[i+1]-1;
                 end
                   else b[i]:=s;
         end;
if b[a]=0 then begin
delete(n,a,1);
a:=a-1;
end;
 
for i:= a downto 1 do
n[a-i+1]:=chr(b[i]+48);
for i:= a1 downto 1 do
n1[a1-i+1]:=chr(b1[i]+48);
writeln(n,n1);end
    else begin
 
             for i:=1 to a do
                  begin
                    s:=b1[i]-b[i];
                         if s<0 then
                             begin
                                 b1[i]:=10+s;
                                       b1[i+1]:=b1[i+1]-1;
                             end
                               else b1[i]:=s;
                  end;
if b1[a1]=0 then begin
delete(n1,a1,1);
a1:=a1-1;
end;
for i:= a downto 1 do
n[a-i+1]:=chr(b[i]+48);
for i:= a1 downto 1 do
n1[a1-i+1]:=chr(b1[i]+48);
writeln(n,n1);
end; end;
 
 
 
end.

var n,n1:string;
    f:boolean;
    k:integer;
begin
n:='421';
n1:='1211';
if length(n)<>length(n1)then f:=length(n)>length(n1)
else
 begin
  f:=true;
  k:=1;
  while (k<=length(n))and(n[k]=n1[k])do inc(k);
  if (k<=length(n))then f:=n[k]>n1[k];
 end;
if f then writeln('da') else writeln('net');
end.