Символы и строки(ПАСКАЛЬ)

[Таня.Ку]

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

[Alex_FF]

на delphi или на turbo pascal писать?

[Alex_FF]

для первого случая:

const
  Quantity = 100;
  Alphabet = ['А'..'Я', 'а'..'п', 'р'..'я'];

function Change(S: String): String;
var
  I: Integer;
  FirstLetter: Char;
  Word: String;
begin
  FirstLetter := S[1];
  Word := FirstLetter;
  for I := 2 to Length(S) do
    if S[I] <> FirstLetter then Word := Word + S[I];
  Change := Word;
end;

var
  I, J, N: Integer;
  S, Word: String;
begin
  WriteLn('Введите строку');
  ReadLn(S);
  I := 1;
  WriteLn('Результат:');
  while I <= Length(S) do
  begin
    if S[I] in Alphabet then
    begin
      Word := '';
      while (S[I] in Alphabet) and (I <= Length(S)) do
      begin
        Word := Word + S[I];
        Inc(I);
      end;
      Write(Change(Word), S[I]);
    end
    else Write(S[I]);
    Inc(I);
  end;
  ReadLn;
  ReadLn;
end.

для второго случая нужно переписать функцию Change следующим образом:

function Change(S: String): String;
var
  I: Integer;
  LastLetter: Char;
  Word: String;
begin
  LastLetter := S[Length(S)];
  Word := LastLetter;
  for I := Length(S) - 1 downto 1 do
    if S[I] <> LastLetter then Word := Concat(S[I], Word);
  Change := Word;
end;

P. S. Вообще в функциях Change нужно сравнивать буквы в верхнем регистре, но т. к. в Turbo Pascal функция Upcase определена только для английских букв, я это не сделал. В delphi с этим проблем нет, потому и спрашивал, на чем писать. Ну если очень нужно Upcase для Trubo Pascal, то вот она:

function UpcaseLetter(C: Char): Char;
const
  S1 = ['а'..'п'];
  S2 = ['р'..'я'];
  S3 = ['a'..'z'];
begin
  if C in S1 then UpcaseLetter := Chr(Ord(C) - Ord('а') + Ord('А'))
  else if C in S2 then UpcaseLetter := Chr(Ord(C) - Ord('р') + Ord('Р'))
  else if C in S3 then UpcaseLetter := Upcase(C)
  else UpcaseLetter := C;
end;