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.