bukvfirst.PAS

{* Cлова с данной буквы *}

Unit BUKVFIRST;
Interface
Implementation
Begin
 writeln('Вывести все слова, которые начинаются с данной буквы');
End.

Program z1;

Uses bukvfirst.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
label 1, 2, 3, 4;
Var {* Объявление переменных *}
  a   : String;
  i   : integer;
  j   : integer;
  n   : integer;
  max : integer;
  k   : integer;
  x   : Array[1..100] Of String;
  s   : Array[1..100] Of String;
  b   : char;
Begin
  clrscr; {* Стираем всё с экрана *}
  readln(a);
  readln(b);
  i := 1;
  n := 1;
  For j := 1 To 100 Do {* Увеличиваем j от 1 до 100 с шагом 1 *}
  Begin
    x[j] := '';
    s[j] := '';
  End;
  While ilength(a) Then
    Goto 4;
  Until a[i]' ';
  3 : Repeat
  If a[i]' ' Then
    Goto 2;
  i := i + 1;
  If i > length(a) Then
    Goto 4;
  Until a[i] = ' ';
End;
  4:
For j := 1 To n Do {* Цикл для j => [1 .. n] *}
  For i := 1 To length(x[j]) Do {* Увеличиваем i от 1 до length(x[j]) с шагом 1 *}
    If x[j][i]' ' Then
      s[j] := s[j] + x[j][i];
k := 0;
For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  If s[i][1] = b Then
    writeln(s[i]);
readkey; {* Нажмите любую клавишу *}
End....