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

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.