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

Program space;
var
q,new:text;
s:string;
i:integer;
fname:string;
x:char;
begin

writeln('pri vvode enter budut udaleni lishnie probeli');
fname:='finish.txt';
assign(q,fname);
reset(q);
read(q,s);
rewrite(q);
writeln('vvedite simvol');
readln(x);
while not eof(q) do
 begin
  readln(q,s);
  if pos(x,s)>0 then writeln(new,s);
 end; 
close(q);
close(new);

readln;
end.