[spy35]

Доброго вечера, форумчане. Возникла проблема с частью задачи:
"Дан файл, содержащий какой-то текст. Найти все слова, которые заканчиваются на заданную букву (буква вводится). Результат вывести в виде таблицы из одного столбца."
Начал потихоньку без вывода в таблицу, все бы ничего, но при выводе нужного слова, возникает проблема, когда в нужном слове заданная буква, кроме последней встречается еще где то. Буду рад помощи в решении сей задачи. Заранее спасибо.

вот то что успел написать:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var i,m,z,n:integer;
     s,s1,p: string;
  begin
  s2:=edit1.text;
  s1:='';
  m:=0;
  Z:=0;
  s:=memo1.lines.text;
  n:=length(s);
  for i:=1 to n do
   begin
     if (s[i]<>' ')then
     s1:=s1+s[i]
     else s1:='';
     m:=length(s1);
     p:=copy(s1,m,1);
     z:=pos(p,s);
     if (s2=p)and(s[z+1]=' ') then
       begin
        showmessage(s1);
        delete(s,z,1);
        z:=0;
        s1:='';
      end;
      if (s2=p) and (s[z+1]<>' ') then  delete(s,z,1);
   end;
  end;
end.

lmikle: Пользуемся тегами!!!

[lmikle]

Код:

var
  wStr : String; // слово
  cChr : Char; // буква
begin
  ...
  wStr := Trim(wStr);
  If wStr[Length(wStr)] = cChr Then
    Begin
      // оно самое!!!
      ...
    End;

[spy35]

Спасибо за оперативный ответ.