Задача на текстовые файлы

[Rebellion]

Дан текстовый файл и некоторое слово. Создать новый текстовый файл, записав в
него те строки файла, которые заканчиваются данным словом.

[Arhangel7]

var
T,T1:Textfile;
Tn,T1n,S,S1,Slovo:string;
p,p1:integer;
begin
  write('введите имя файла -> ');
  readln(Tn);
  write('введите слово -> ');
  readln(Slovo);
  p1:=length(Slovo);
  Assignfile(T,Tn);
  T1n:=('Ответ_'+Tn);
  Assignfile(T1,T1n);
  reset(T);
  rewrite(T1);
  while not Eof(T) do
    begin
      readln(T,S);
      p:=length(S);
      S1:=copy(S,p-p1+1,p1);
      if Slovo=S1 then writeln(T1,S);
    end;
  CloseFile(T);
  CloseFile(T1);

{ тут так:
 пример файла T:
 бла бла бла Slovo
 бла Slovo бла бла
 пример файла T1:
 бла бла бла Slovo }
end.

вроде так