Вычеркнув в числе одну цифру, получить наибольшее число

Var
  Nn,Max : Longint;
  i,k   : Byte;
  
Function GetNumCifr(A : Longint) : Integer;
Begin
  If A<=0 then GetNumCifr:=0 else GetNumCifr:=1+GetNumCifr(A div 10);
End;
 
Function GetNumInPos(B : Longint; N : Byte) : Byte;
Var ll : Integer;
    kk : LongInt;
Begin
  kk:=B; ll:=1;
  While ll<N do
  Begin
    Inc(ll);
    kk:=kk div 10;
  End;
  GetNumInPos:=kk mod 10;
End;
 
Function DelNumInPos(B : Longint; N : Byte) : Longint;
Var mm : Longint;
    vv : Byte;
Begin
  If N<=GetNumCifr(B) then
  Begin
    mm:=0;
    For vv:=GetNumCifr(B) downto 1 do
      If vv<>N then mm:=mm*10+GetNumInPos(B,vv);
    DelNumInPos:=mm;
  End
  else DelNumInPos:=B;
End;
 
Begin
  Nn:=8263015; max:=0;k:=0;
  For i:=1 to GetNumCifr(Nn) do
    If DelNumInPos(Nn,i)>max then
    Begin
      max:=DelNumInPos(Nn,i);
      k:=i;
    end;
  Writeln(DelNumInPos(Nn,k));
end.

var
  s,s1,s2:string;
  i,j:integer;
  o:real;
begin
 repeat
  write('N=');
  readln(s);
  val(s,o,j);
 until (length(s)>0) and (length(s)<10) and (j=0) and (o>0);
  s1:=copy(s,2,length(s));
  for i:=1 to length(s) do
    begin
      s2:=s;
      delete(s2,i,1);
      if s1<s2 then s1:=s2;
    end;
  writeln(s1);
  readln;
end.