Вывод слов с удвоенными согласными. Паскаль

[Svetik2252]

Здравствуйте.

Дана строка символов St, состоящая из латинских букв. Группы символов, разделенные пробелами и не содержащие пробелов внутри себя, будем называть словами. Преобразовать исходную строку в строку St1. Если строка окажется пустой, выводить соответствующее сообщение.

Строка St1 в которую нужно преобразовать строку St:

Напечатать слова, отличные от последнего слова, если в них есть удвоенные согласные.

Нужна помощь в преобразовании кода, который выводит слова с удвоенной буквой (в данной случае 'н') в код согласно заданию.

program example1;
var st, st1:string;
       i,j,k,n:integer;
       flag:boolean;
const
     znak=[' '];
   begin
     writeln('Введите текст');
  readln(st);
     repeat
          while st[1] in znak do delete(st,1,1);
        i:=1;
     while (not (st[i] in znak)) and (i<=length(st)) do inc(i);
     st1:=copy(st,1,i-1);
     flag:= false;
     while (pos('н',st1)>0) and (not flag) do begin
       j:=pos('н',st1); n:=j; k:=0;
          while st1[n]='н' do begin inc(n); inc(k); end;
       if k=2 then flag:= true;
       delete(st1,j,k)
  end;
  if flag then writeln(copy(st,1,i-1));
     delete(st,1,i);
   until st='';
     readln;
end.

[Stilet]

Я твой код не очень понял. для меня он сложен, поэтому предлагаю свой
С важными комментариями.

  var p,k,s,e:string;i:integer; b:boolean;
begin
 s:='If you 555 then I 666';
 i:=length(s);
 {Получаем последнее слово}
 while (i>0)and(s[i]<>' ') do begin e:=s[i]+e;dec(i);end;
 p:='';dec(i);b:=false;
 {Ищим остальные слова}
  while (i>0) do begin
  if s[i]<>' ' then begin
  {Если рядомстоящие буквы совпадают заметим это слово}
   if (p<>'')and(s[i]=p[1]) then begin
    b:=true;
   end;
   p:=s[i]+p
  end  else begin
   {Если слово замеченое то откладываем его в переменку накопитель}
   if (b)and(p<>e) then begin
    k:=k+p+' ';
   end;
   p:='';
   b:=false;
  end;
  dec(i);
 end;
 writeln(s);writeln(k);
 readln;
end.

Там подделаешь выделенное условие под свои согласные...

[Svetik2252]

Повторяющихся согласных должно быть только две...

[Alex_FF]

я думаю, нужно распаковку текста сделать...

[Svetik2252]

А как делается распаковка текста? Что-то я уже совсем запуталась...

[Тупой]

Svetik2252, а чем не нравится код Stilet-а?

[Stilet]

Тупой

А тем что мой код не учитывает что в слове могут рядом стоять три одинаковых буквы, а автору нужно только чтоб две.

[Svetik2252]

Большое спасибо Stilet-u, помогите пожалуйста доработать код...