Здравствуйте уважаемые форумчане!
Пожалуйста помогите с задачей
Суть задачи такова :-
Прочитать текстовый файл, в котором хранятся одна статья уголовного кодекса, состоящая из одного единственного пункта. Отделить от этой статьи санкцию, если известно, что она начинается со слов <наказывается> или <наказываются>.
Т.е. найти слово в тексте и вывести ПОСЛЕ него остальной текст. С открытием текстового файла, и поиском в нём слова кое как разобрался, а свыводом после него неразобрался в этом и нужна ваша помощь 
| Код |
procedure TForm2.OpenX(FileName: string);
var
F : textfile;
I : integer;
begin
AssignFile(f,FileName); Reset(f);
i:=0 ;
While not EOF(f) do begin
Inc(i); Setlength(x,i);
Read(f,x[i-1]); //здесь читаем наш файл и массив
ReadLn(f);
end;
CloseFile(f);
Sort;
GetY;
end;
procedure TForm2.Sort;
Var
s,t : String;
n,I,J : integer;
begin
S:='наказываются'; j:=0; t:='';
for i:=0 to Length(x)-1 do begin
t:=t+x[i];
If Pos(s,t)<>0 then begin //ищу это самое слово
//Если найдено как вывести остальной текст после него?
//Думал что нужен какой то счётчик позиции который будет использоватся в цикле
//как старт с определёного места ну ест-но после найденого слова, но нихрена непонимаю
// как закодить вобщем ПОмогите кто чем Может:-)
|
А вот как вывести ПОСЛЕ этого самого слова остальной текст нивкакую неполучается! 
Пожалуйст апомогите примерчиком в виде кода 
|