program zadanie3;
var
i,n,k:integer;
predl:string;
words,result:array[1..100] of string;
wfile:text;
filename:string;
begin
predl:='turbo pascal internet go interest programming number size on get post kelvin programming development';
n:=1;
k:=1;
for i:=1 to length(predl) do begin
  if predl[k]<>' ' then  begin
    words[n]:=words[n]+predl[k];
    inc(k);
  end
  else
  begin
    inc(n);
    inc(k);
  end;
end;

k:=1;

for i:=1 to n do begin
  if (length(words[i])>5) and (length(words[i])<8) then begin
    result[k]:=words[i];
    inc(k);
  end;
end;

filename:='res.txt';
Assign(wfile,filename);
Rewrite(wfile);
Writeln(wfile, 'ishodniy text:');
writeln(wfile, predl);
writeln(wfile, 'slova po usloviu:');
for i:=1 to k do
 writeln(wfile, result[i]);
Close(wfile);
end.