Напишите программу, которая будет быстро и правильно производить конвертацию пароля

Function ConvertPass(S : String) : String;
Var
  k  : Integer;
  ss : String;
Begin
  If Length(S)>1 then
    If S[1]=S[2] then
    Begin
      k:=3;
      While (k<=Length(S)) and (S[k]=S[1]) do Inc(k);
      Case S[1] of
        ' ' : ss:='_';
        '*' : ss:='...';
        else ss:=S[1]
      end;
      ConvertPass:=ss+ConvertPass(Copy(S,k,Length(S)));
    end
      else ConvertPass:=S[1]+ConvertPass(Copy(S,2,Length(S)-1))
  else ConvertPass:=S;
end;
 
Begin
  Writeln(ConvertPass('aaabbc**    c****bbba11111')); { abc..._c...ba1 }
end.

var
   
begin
assign(a,'input.txt');
assign(o,'output.txt');
reset(a);
rewrite(o);
 
close(a);
close(o);
end.

var
a:char; 
  
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
n:='abcd';
                   if a='abcd' then writeln(n)
                   else writeln('abc...');
                  
close(input);
close(output);
end.