Выделение остатка каждой строки, содержащей заданный символ

[ofenod]

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

[ofenod]

Вот мой вариант, но возможно у кого-то будут идеи получше.

program p1;
var
   f: text;
   c,n:char;
   i:integer;

begin
cls;
     assign(f, 'c:\file.txt');
     reset(f);
     
     write('Введите символ: ');
     read(c);
     
     while not eof(f) do begin
         read(f,n);
         if c=n then
            begin
                 while not Eoln(f) do begin
                 read(f,n);
                 write(n);
                 if Eoln(f) then writeln();
                 end;
            end;
     end;

     
close(f);
end.

[Serge_Bliznykov]

var
....
  s : string;
....

    write('Введите символ: ');
     read(c);
     
     while not eof(f) do begin
         readln(f, s);
         if pos(c, s)>0 then Delete(s, 1, pos(c, s));
         WriteLn(s);
     end;

и всё...

[BoozZzilla]

Сообщение от Serge_Bliznykov

var
....
  s : string;
....

    write('Введите символ: ');
     read(c);
     
     while not eof(f) do begin
         readln(f, s);
         if pos(c, s)>0 then Delete(s, 1, pos(c, s));
         WriteLn(s);
     end;

удаляет до первого встреченого символа

 {...}
 if pos(c, s)>0 then Delete(s, pos(c, s)+1,length(s)-pos(c, s) );
{...}

удаляет после него

 {...}
 if pos(c, s)>0 then Delete(s, pos(c, s),length(s)-pos(c, s) );
{...}

удаляет после него и с ним

 {...}
while (pos('мысль', mind)) do
Delete(BoozZz, pos('мысль', mind),length(mind) );
{...}

удаляет мине моск...