Дан файл. записать в другой файл только те строки, которые начинаются с заданной буквы — Pascal(Паскаль)

program fjsg;
var f1,f2:text;
    s:string;
    c:char;
begin
assign(f1,'..\data\data.txt');
assign(f2,'..\data\result.txt');
reset(f1);
rewrite(f2);
writeln('Введите букву');
readln(c);
while not eof(f1) do
begin
     readln(f1,s);
     if s[1]=c then writeln(f2,s);
end;
close(f1);
close(f2);
end.