Перше завдання:

program Project1;
var
  a:array[1..16] of integer; len,N:integer;

 procedure split(n:Integer);
 begin
  len:=1; while n>0 do begin
    a[len]:=n mod 10;
    n:=n div 10;
    inc(len);
    end;
  dec(len);
 end;

 function join(n:integer):Integer; var i:integer;
 begin
  Result:=0;
  for i:=len downto 1 do if i<>n then begin
    Result:=Result*10+a[i];
    end;
 end;

 function Seek:Integer; var v,max,i:integer;
 begin
  Result:=0;
  for i:=len downto 1 do begin
    v:=join(i);
    if (max<v) or (i=len) then begin max:=v; Result:=len-i+1; end;
    end;
 end;

begin
  n:=735;
  split(n);
  writeln(Seek);
  readln;
end.

Влаштовує?