строки переделайте.

[nolx]

Вывести все слова последовательности отличные от последнего слова предворительно преобразовав каждое из них по следующему правилу: удалить из слова все предыдущие вхождения последней буквы.

вот программа сделайте правельно


Program Stroki;
uses crt;
var
a:array[2..30] of string [10];
s,s1,slovo,slovo1:string;
k,i,j:integer;
f:boolean;
begin
clrscr;
s:='hgjfj dhhfsdd wkdhuj lrlsal.';
delete (s,length(s),1);
s:=s+' ';
i:=0;
repeat
k:=pos(' ',s);
slovo:=copy(s,1,k-1);
writeln(slovo);
i:=i+1;
a[i]:=slovo;
delete(s,1,k);
until(length (s)=0);
writeln('__________________________ _____________');
for k:=1 to i do
begin
slovo1:=a[k];
f:=false;
for j:=2 to length(slovo1) do
if slovo1[1]=slovo1[j] then
f:=true;
if f then writeln(slovo1);
end
end.