Завтра надо пож!

[nolx]

Дана последовательность от 2 до 30 слов в каждом из которых от 2 до 10 латинских букв;
между соседними словами пробел,за последнем точка.
Вывести все слова последовательности, отличных от последнего слова;предворительно преобразовав по след правилу:
удалить из слова все предыдушие вхождения последней буквы!

РЕШИТЕ ПОЖАЛУЙСТА на ПАСКАЛЕ НАДО ЗАВТРА СДАТЬ!!!

[Poltev86]

Задания очень простые))))))) найдите время почитать умные книжки...иначе дальше сложнее учиться будет...

[nolx]

ну решите плиз я сделал но не могу последние сделать задание!(((

[nolx]

Вывести все слова последовательности, отличных от последнего слова;предворительно преобразовав по след правилу:
удалить из слова все предыдушие вхождения последней буквы!
можно написать хоть эту!!! а там я разберусь!

[Z1000000]

program lab;
var
 aStr : String;
 i,indexPrev : Integer;
 LastWord,CurWord : String;

function DeleteRepSym(aStr:String):String;
var
 LastSym : Char;
 NewWord : String;
 i : Integer;
begin
NewWord := '';
LastSym := aStr[Length(aStr)];
for i:=1 to Length(aStr)-1 do
 if aStr[i] <> LastSym then NewWord := NewWord + aStr[i];
DeleteRepSym := NewWord + LastSym;
end;

begin
 readln(aStr);
 LastWord := '';
 for i:=Length(aStr)-1 downto 1 do
  begin
  if aStr[i] <> ' ' then LastWord := aStr[i] + LastWord
  else begin IndexPrev := i; break; end;
  end;
 LastWord := DeleteRepSym(LastWord);

 writeln ('Вывод: ');
 CurWord := '';
 for i:= 1 to indexPrev do
  begin
  if aStr[i] = ' ' then
   begin
   if CurWord <> '' then
    begin
    CurWord:= DeleteRepSym(CurWord);
    if CurWord <> LastWord then writeln (CurWord);
    CurWord := '';
    end
   end
  else
   begin
   CurWord := CurWord + aStr[i];
   end;
  end;
writeln (LastWord);
end.