Возвращение строки

  Const
    delimiters = [ ' ' , '.' , ',']; 
    len=80; 
  Var
    in_file : text;
    pattern_word, 
    word_intext, 
    stroka :string[len];
    k, n, strokalength : word;
    file_name : string[20];
    i:integer;
  Begin
    Assign(in_file, '2.txt');
    Reset(in_file);
    n := 0;
    while not Eof(in_file) do
      begin
        Inc(n);
        ReadLn(in_file, stroka);
        strokalength := Length(stroka);
        k := 1;
        word_intext := '';
        while k <= strokalength do
          begin
            if (stroka[k] in delimiters) 
                or (k=strokalength) 
              then 
                begin 
                  if (k=strokalength)and not(stroka[k] in delimiters)
                    then for i:=1 to strokalength do 
                      word_intext := word_intext+stroka[k];
                      
                   if stroka[k] < word_intext
                     then 
                       begin
                         WriteLn(stroka);
                         writeln(word_intext);
 
                       end;
                  word_intext := '';
                end
                else 
                word_intext := word_intext+stroka[k];
            Inc(k);
          end 
      end; 
    Close(in_file);
  end.

begin
  var s := ReadAllText('2.txt');
  WriteLn(s);
end.

begin
  var d := ' .,'#13#10.ToCharArray;
  var s := ReadAllText('2.txt').ToWords(d);
  s.Println;
end.

begin
  var pref := ReadLnString('С какого буквосочетания:');
  var d := ' .,'#13#10.ToCharArray;
  var s := ReadAllText('2.txt').ToWords(d).Where(word -> word.IndexOf(pref) = 0);
  s.Println;
end.