2 небольшие задачки, паскаль, символы и строки.

[AlexMasolev1992]

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

2) Дана не пустая последовательность слов из строчных английских букв, между соседними словами пробел, за последним словом - точка. Напечатать в алфавитном порядке все глухие согласные буквы, которые входят в каждое нечётное слово и не входят ни в одно четное слово.

[MihalNik]

Вторая что-то вроде:

readln(s);
sogl:= 'в алфавитном порядке все глухие согласные буквы';
res:= '';
for i:= 1 to length(sogl) do begin
  yes:= True;
  nechet:= True;
  vhodit:= False;
  for k:= 1 to length(s)-1 do
    if (s[k] = ' ') then begin
      if nechet and not vhodit then yes:= False;
      nechet:= not nechet;
      end
    else if (s[k] = sogl[i]) and not nechet then Yes:= False;
  if yes then res:= res+s[i];
  end;
writeln(res);

[AlexMasolev1992]

Сообщение от MihalNik

Вторая что-то вроде:

readln(s);
sogl:= 'в алфавитном порядке все глухие согласные буквы';
res:= '';
for i:= 1 to length(sogl) do begin
  yes:= True;
  nechet:= True;
  vhodit:= False;
  for k:= 1 to length(s)-1 do
    if (s[k] = ' ') then begin
      if nechet and not vhodit then yes:= False;
      nechet:= not nechet;
      end
    else if (s[k] = sogl[i]) and not nechet then Yes:= False;
  if yes then res:= res+s[i];
  end;
writeln(res);

Спасибо, но у меня что-то не выходит( как у вас полностью программа выглядит?

[MihalNik]

1. Я полностью не писал никакой программы
2. Что у Вас не выходит?
3. Приложите сообщения об ошибке или контрпример для своей программы (с результатом)
4. Исходник Вашего "не выходит" тоже желательно

[Stilet]

у меня что-то не выходит(

Что именно?