Удалить из слова все последующие вхождения первой буквы

const
  n = 30;
type
  TStringArray = array[1..n] of string;
 
var
  input : string;        
  words : TStringArray;  
  currentLetter, currentWord, i  : word;          
 
Begin
  input := '';
  WriteLn('Введите предложение: ');
  ReadLn(input);
 
  currentLetter := 1;       
  currentWord := 1;        
  if (input <> '') then
    while ((currentLetter < Length(input)) and (input[currentLetter] <> '.') and (currentWord <= n)) do
      begin        
        while ((input[currentLetter] <> '.') and (currentLetter < Length(input)) and (input[currentLetter] <> ' ')) do
          begin
            words[currentWord] := words[currentWord] + input[currentLetter];
            inc(currentLetter);
          end;
        if (words[currentWord] <> '') then
          inc(currentWord);
        while ((input[currentLetter] <> '.') and (currentLetter < Length(input)) and (input[currentLetter] = ' ')) do
          begin
            inc(currentLetter);
          end;
      end;
     for i := 1 to currentletter - 1 do
     begin
      Write(words[i], ' ');
    end;  
End.

program Elios;
 
var
  s: string;
  c: char;
  b: byte;
 
Begin
  repeat
    WriteLn('Введите предложение: ');
    ReadLn(s);
    if length(s) = 0 then writeln('Это пустая строка. Повторите ввод.')
  until length(s) > 0;
  s := ' ' + s;
  b := 2;
  while b <= length(s) do
    begin
      if (s[b - 1] = ' ') and (s[b] <> ' ')
        then c := s[b]
        else if s[b] = c then delete(s, b, 1);
      b := b + 1
    end;
  delete(s, 1, 1);
  writeln('Результат:');
  writeln(s);
  readln
End.

program Elios;
 
var
  s: string;
  w: array [1..30] of string;
  c: char;
  b, n: byte;
 
Begin
  repeat
    WriteLn('Введите предложение: ');
    ReadLn(s);
    s := s + ' ';
    while pos('  ', s) > 0 do delete(s, pos('  ', s), 1);
    if s[1] = ' ' then delete(s, 1, 1);
    if (length(s) = 0) or (s = ' ') then writeln('Это пустая строка. Повторите ввод.')
  until (length(s) > 0) and (s <> ' ');
  n := 0;
  while length(s) > 0 do
    begin
      inc(n);
      w[n] := copy(s, 1, pos(' ', s));
      delete(s, 1, pos(' ', s))
    end;
  for b := 1 to n do
    begin
      c := w[b, 1];
      delete(w[b], 1, 1);
      while pos(c, w[b]) > 0 do delete(w[b], pos(c, w[b]), 1);
      w[b] := c + w[b]
    end;
  writeln('Результат:');
  for b := 1 to n do write(w[b]);
  readln
End.

c := w[b][1];