строковые переменные

uses CRT;
var  s:String;
     i:integer;
BEGIN
    s:='gsdhsa** sjhda**hgjgh* **h**';
    repeat
      if pos('*',s)<>0
        then Delete(s,pos('*',s),1);
    until pos('*',s)=0;
    
   for i:=1 to (Length(s)*2) do
     if (i mod 2)<>0
       then Insert(s[i],s,i+1);
 
    
    write(s);
END.

var
s:string;
i,k:integer;
 
BEGIN
 write('строка: ');readln(s); {входная строка}
 while (pos('*',s)<>0) do delete(s,pos('*',s),1); {убираем *}
 k:=1;
 for i:=1 to length(s) do {удваиваем буквы}
 begin
  insert(s[k],s,k); inc(k,2);
 end;
 writeln('строка: ',s); {выходная строка}
END.

program Project1;
 
var
  S : ShortString;
  i : Integer;
begin
  Writeln('Введите строку:');
  Readln(S);
 
  for i := Length(S) downto 1 do begin
    case S[i] of
      '*' : Delete(S, i, 1);
      else  Insert(S[i], S, i);
    end;
  end;
 
  Writeln('Результат:');
  Writeln(S);
 
  Readln;
end.