program PascalGuru;
var
i: integer;
t, f: text;
s: string;
procedure zapisi(s: string);
var
j, p: integer;
x: string;
begin
j := 0;
repeat
inc(j);
p := pos(' ', s);
x := copy(s, 1, p - 1);
if p = 0 then
x := s;
{ x - слово }
if (x[1] = 'к') and (length(x) = 6) then
writeln(t, x);
delete(s, 1, p);
until p = 0;
end;
{ ---------------------------- }
begin
assign(f, 'fail.txt');
reset(f);
assign(t, 'fail_out.txt');
rewrite(t);
i := 0;
while not eof(f) do
begin
readln(f, s);
inc(i);
zapisi(s);
end;
writeln('Slova uspeshno perepisany...');
close(f);
close(t);
readln;
end.