program failai;
var e,f,f2:string;
b,m:text;
procedure raso;
var h:char;
x,a,k,i,j,v,d,c:integer;
begin
K:=0;
a:=length(e);
for i:=1 to a do
begin
if (e[i]<> ' ') then
begin k:=k+1;
end;
if e[i]=' ' then
begin
d:=k;
k:=0;
if (d<2) then
begin
x:=i-d;
write(m,e[x]);
write(m, ' ');
end;
if d>9 then
begin
j:=i-d+1;
v:=i-1;
for c:=j to v do
write(m,e[c]);
write(m,' ');
end;
end;
if (i=a) and (e[i]<>' ') then begin
if (k>9) or (k<2)
then begin
c:=a-k+1;
for j:=c to a do
begin
write(m,e[j]);
k:=0;
end;
write(m,' ');
end;
end;
end;
end;
begin
Writeln('Iveskite pirma faila');
readln(f);
assign(b,f);
{$I-}
reset(b);
{$I+}
if IOResult<>0 then begin
writeln('Negalima atverti failo', f);
halt;
end;
Writeln('Iveskite antra faila');
readln(f2);
assign(m,f2);
{$I-}
rewrite(m);
{$I+}
if IOResult<>0 then begin
writeln('Klaida,negalima sukurti rezultato failo ',f2);
halt;
end;
while not Eof(b) do
begin
readln(b,e);
raso;
end;
close(b);
close(m);
end.