В тексте...

[Olalya da Silva]

В произвольном тексте(тип: char) к каждой согласной добавить еще одну такую же.

[alex_fcsm]

var s,sub:string;
    i:integer;
    m:set of char;
begin
m:=['B'..'D','F'..'H','J'..'N','P'..'T','V'..'X','Z'];
readln(s);
sub:='';
for i:=1 to length(s) do
 begin
  sub:=sub+s[i];
  if UpCase(s[i]) in m then sub:=sub+s[i];
 end;
 writeln(sub);
end.

[capta1n]

Вот мой вариант - добавил русские буквы и по-другому записал цикл - сделал имена переменных такими же как у Вас, Алекс, чтобы удобнее было сравнивать решения; да - и на месте непонятных символов - русские буквы - при переносе в турбо среду все будет нормально, так что не пугайтесь:

program ds;
var
 m : set of char;
 s,sub : string;
 i : byte;
begin

 m:=['B'..'Z']+['b'..'z']-['e','E','u','U','i','I','o','O'];
 m:=m+['Ѓ'..'™']+['Ў'..'й']-['e','…','Ё','€','®','O','г','“'];
 readln(s);

 sub:='';
 for i:=1 to length(s) do
  if s[i] in m then sub:=sub+s[i]+s[i]
  else sub:=sub+s[i];

 writeln (sub);

 readln

end.