Переписать в новый файл строки, в которых содержится заданный символ

var
f, g: file of string[100];//объявление типа файлов - строковый файл 
a: string[100];// описание переменных 
i, n,k: integer;// описание переменных
s: string;
temp: boolean;// описание переменных
begin
temp := true;
write('Введите имя входного файла: ');// ввод файла
readln(a);// чтение компонентов файла
assign(f, a);// связь между файлами
write('Введите имя выходного файла: ');// ввод второго файла
readln(a);// его чтение
assign(g, a);// связь файлов
write('Введите количество строк входного файла: ');// ввод строк 1 файла
Readln(n);// чтение компонентов файла
rewrite(f);// открытие файла 2 для записи 
write ('Введите символ: ');
readln (s);
writeln('Введите строки исходного файла');// ввод строк 2 файла
for i := 1 to n do// цикл прохождения по файлу от начала до конца
begin
readln(a);// чтение компонентов файла
write(F, a);// запись из 1 файла в переменную а
end;
close(f);// закрытие файла
reset(f);// открытие файла для чтения
rewrite(g);//  открытие файла для записи
while (not eof(f)) do// цикл прохождения по 1 файлу
begin
k:=0;
read(f, a);// чтение компонентов файла
for i := 1 to length(a) do //для i от 1 до конца строки
if a[i] <> (s)  then
begin
k:=1;
break;
end;
if (k = 0) then write(g, a);// условие для записи в новый файл
end;
begin
close(f);// закрытие файла
reset(g);// открытие 2 файла для чтения
writeln;
writeln('Новый Файл:');
while (not eof(g)) do // цикл прохождения по 2 файлу
read(g, a);// чтение компонентов файла
writeln(a);// вывод значений переменной а
end;
close(g);// закрытие 2 файла
end.

  Reset(f); Rewrite(g);
  while not EoF(f) do begin
    ReadLn(f,s);
    if Pos(c,s)<>0 then WriteLn(g,s);
  end;
  Close(g); Close(f);