By the way , could you please send me the reserved words of Delphi ?
( The exception words from Pascal Reserved words )?
  Thanks a lot .

>   By the way , could you please send me the reserved words of
Delphi ?
> ( The exception words from Pascal Reserved words )?
>   Thanks a lot .

My source here :

{ nikifor _ 2
obtain y from x by erasing some x digits }

CONST
     INP                =               '1071.inp';
     OUT                =               '1071.out';
     maxco              =               1000000 ;
     maxl               =               200 ;

TYPE
  ar1           =       array[1..maxl] of longint ;

VAR
  b_radix,lenx,leny,x,y           :       longint ;
  ax,ay                   :       ar1 ;
  b_ok                      :       boolean ;

PROCEDURE       InputRead ;
  begin
{    assign (input,inp);
    reset(input);}
    readln (x,y) ;
{   close(input);}
  end;

PROCEDURE       d_convert ( x : longint ; var a : ar1 ; var lena :
longint) ;
  begin
    lena:=0 ;
    while x > 0 do
      begin
        inc (lena) ;
        a[lena]:=x mod b_radix ;
        x:=x div b_radix ;
      end ;
  end ;

PROCEDURE       d_check ;
  var
    i,j,left            :       integer ;
    stop                :       boolean ;
  begin
    left:=1 ;
    for i:=1 to leny do
      begin
        stop:=true ;
        for j:=left to lenx do
          if ax[j] = ay[i] then
            begin
              left:=j+1 ;
              stop:=false ;
              break ;
            end ;
        if stop then exit ;
      end ;
    b_ok:=true ;
  end ;

PROCEDURE       Process ;
  var
    i           :       longint ;
  begin
    b_ok:=false;
    for i:=2 to maxco do
      begin
        b_radix:=i ;
        if i = 100000 then
          i:=i ;
        d_convert ( x,ax,lenx) ;
        d_convert ( y,ay,leny) ;
        d_check ;
        if b_ok then exit ;
      end ;
  end;

PROCEDURE       OutputWrite ;
  begin
{    assign( output,out);
    rewrite (output);}
    if b_ok then writeln(b_radix)
    else writeln('No solution') ;
{    close (output);}
  end;

BEGIN
  InputRead ;
  Process ;
  OutputWrite ;
END.

A little mistake, give up it you'll get AC, I've tried.

>
> { nikifor _ 2
> obtain y from x by erasing some x digits }
>
> CONST
>      INP                =               '1071.inp';
>      OUT                =               '1071.out';
>      maxco              =               1000000 ;
>      maxl               =               200 ;
>
> TYPE
>   ar1           =       array[1..maxl] of longint ;
>
> VAR
>   b_radix,lenx,leny,x,y           :       longint ;
>   ax,ay                   :       ar1 ;
>   b_ok                      :       boolean ;
>
> PROCEDURE       InputRead ;
>   begin
> {    assign (input,inp);
>     reset(input);}
>     readln (x,y) ;
> {   close(input);}
>   end;
>
> PROCEDURE       d_convert ( x : longint ; var a : ar1 ; var lena :
> longint) ;
>   begin
>     lena:=0 ;
>     while x > 0 do
>       begin
>         inc (lena) ;
>         a[lena]:=x mod b_radix ;
>         x:=x div b_radix ;
>       end ;
>   end ;
>
> PROCEDURE       d_check ;
>   var
>     i,j,left            :       integer ;
>     stop                :       boolean ;
>   begin
>     left:=1 ;
>     for i:=1 to leny do
>       begin
>         stop:=true ;
>         for j:=left to lenx do
>           if ax[j] = ay[i] then
>             begin
>               left:=j+1 ;
>               stop:=false ;
>               break ;
>             end ;
>         if stop then exit ;
>       end ;
>     b_ok:=true ;
>   end ;
>
> PROCEDURE       Process ;
>   var
>     i           :       longint ;
>   begin
>     b_ok:=false;
>     for i:=2 to maxco do
>       begin
>         b_radix:=i ;

------>
>         if i = 100000 then
>           i:=i ;
-----> why do you need this command ? It make you get CE
because you can't use command here that change i inside the command
for i := .. but you can when using BP.



>         d_convert ( x,ax,lenx) ;
>         d_convert ( y,ay,leny) ;
>         d_check ;
>         if b_ok then exit ;
>       end ;
>   end;
>
> PROCEDURE       OutputWrite ;
>   begin
> {    assign( output,out);
>     rewrite (output);}
>     if b_ok then writeln(b_radix)
>     else writeln('No solution') ;
> {    close (output);}
>   end;
>
> BEGIN
>   InputRead ;
>   Process ;
>   OutputWrite ;
> END.

 You should change two procedures 's name InputRead, OutputWrite to
ReadInput and WriteOutput. Maybe you'll get Accepted :)

> A little mistake, give up it you'll get AC, I've tried.
>
> >
> > { nikifor _ 2
> > obtain y from x by erasing some x digits }
> >
> > CONST
> >      INP                =               '1071.inp';
> >      OUT                =               '1071.out';
> >      maxco              =               1000000 ;
> >      maxl               =               200 ;
> >
> > TYPE
> >   ar1           =       array[1..maxl] of longint ;
> >
> > VAR
> >   b_radix,lenx,leny,x,y           :       longint ;
> >   ax,ay                   :       ar1 ;
> >   b_ok                      :       boolean ;
> >
> > PROCEDURE       InputRead ;
> >   begin
> > {    assign (input,inp);
> >     reset(input);}
> >     readln (x,y) ;
> > {   close(input);}
> >   end;
> >
> > PROCEDURE       d_convert ( x : longint ; var a : ar1 ; var
lena :
> > longint) ;
> >   begin
> >     lena:=0 ;
> >     while x > 0 do
> >       begin
> >         inc (lena) ;
> >         a[lena]:=x mod b_radix ;
> >         x:=x div b_radix ;
> >       end ;
> >   end ;
> >
> > PROCEDURE       d_check ;
> >   var
> >     i,j,left            :       integer ;
> >     stop                :       boolean ;
> >   begin
> >     left:=1 ;
> >     for i:=1 to leny do
> >       begin
> >         stop:=true ;
> >         for j:=left to lenx do
> >           if ax[j] = ay[i] then
> >             begin
> >               left:=j+1 ;
> >               stop:=false ;
> >               break ;
> >             end ;
> >         if stop then exit ;
> >       end ;
> >     b_ok:=true ;
> >   end ;
> >
> > PROCEDURE       Process ;
> >   var
> >     i           :       longint ;
> >   begin
> >     b_ok:=false;
> >     for i:=2 to maxco do
> >       begin
> >         b_radix:=i ;
>
> ------>
> >         if i = 100000 then
> >           i:=i ;
> -----> why do you need this command ? It make you get CE
> because you can't use command here that change i inside the command
> for i := .. but you can when using BP.
>
>
>
> >         d_convert ( x,ax,lenx) ;
> >         d_convert ( y,ay,leny) ;
> >         d_check ;
> >         if b_ok then exit ;
> >       end ;
> >   end;
> >
> > PROCEDURE       OutputWrite ;
> >   begin
> > {    assign( output,out);
> >     rewrite (output);}
> >     if b_ok then writeln(b_radix)
> >     else writeln('No solution') ;
> > {    close (output);}
> >   end;
> >
> > BEGIN
> >   InputRead ;
> >   Process ;
> >   OutputWrite ;
&