1) Составить фразу "волчий аппетит" из слов "аптека", "ствол", "чайник".
2) Вывести на экран первую букву третьего слова данного текста. Если нет третьего слова, то вывести сообщение "ошибка".

волчий аппетит все просто ))

да серьезно легко

Вообще-то программу надо, а не выпендрёж.

простите о великие модераторы

program e1;

const
  s1 = 'аптека';
  s2 = 'ствол';
  s3 = 'чайник';

var
  s: string;

begin
  s := concat(Copy(s2, 3, 3), s3[1], s3[5], s3[3], ' ');
  s := Concat(s, Copy(s1, 1, 2), s1[2], s1[4], s1[3], s3[5], s1[3]);
  writeln(s)
end.

Тестовое решение:

волчий аппетит

program e2;

var
  i, n, k: integer;
  s: string;

begin
  writeln('Введите фразу, разделяя слова ровно одним пробелом');
  readln(s);
  n := length(s);
  k := 0;
  i := 1;
  while (k < 2) and (i <= n) do
  begin
    if s[i] = ' ' then k := k + 1;
    i := i + 1
  end;
  if k = 2 then writeln('Первая буква в третьем слове: ', s[i])
  else writeln('Ошибка!')
end.

Тестовое решение:

Введите фразу, разделяя слова ровно одним пробелом
Просто тестовая фраза из пяти слов
Первая буква в третьем слове: ф