Текстовый файл - Delphi - Ответ 1632178

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var s,slovo,slovo2:string;
    f:textfile;
    i,k,n,m,j,o,p:integer;
    x:char;
begin
    assign(f,'text.txt');
     reset(f);
         While not EOf(f) do
              begin
               readln(f,s);
                writeln(s);
                end;
     writeln('Vvedite bykvy');
         readln(x);
             i:=length(s);
              writeln(i);
            if x<>' ' then
             begin
                for J:=1 to i do
                 if (s[j]=' ') and (s[j+1]=x) then
                 slovo:=copy(s,j+1,i-j);
                     o:=pos(x,s);
                       p:=pos(' ',s);
                       writeln(o);
                       writeln(p);
                       for J:=o to p do
                       slovo2:=copy(slovo,o,p);
                       writeln(slovo2);
                       readln;
                       end;
 
 
 
 
 
end.