Динамическая строка

[Богданна]

Сформировать динамическую строку и вывести ёё на печать. Проверить, встречается ли в строке удвоения букв.

[denisbrain]

Function GetDoubleCharInStr(value:string):boolean;
var
  x:integer;
  begin
  result:=false;
    for x:=1 to length(value)-1 do begin
       if (value[x]=value[x+1]) and (value[x] in ['A'..'Z','a'..'z','а'..'я','А'..'Я']) then begin  // проверяем только буквы
          result:=true;
       end;
    end;
  end;
 
var s:string;

  begin
  s:='Проверить, встречается ли в строке  е удвоения букв. ';
   if GetDoubleCharInStr(s) then Writeln('Есть удвоения букв')
   else Writeln('Удвоеных букв нет');
  end.

http://netsoftware.ucoz.ru/news/prov...2012-11-28-111