<?
$f=fopen('key.txt','r') or die ("Ощибка открытия файла");
$key=array();
while(!feof($f)){
$key=fgets($f);
}
fclose($f);
$words=explode(" ",$key);

for($j=0;$j<sizeof($words)-1;){
for($i=0;$i<sizeof($words)-1;){
$words2[]="\r\n"." ".$words[$j].' '.$words[$i];
$i++;
}
$j++;
}
$f=fopen('result.txt','w') or die(" Не могу открыть файл");
foreach($words2 as $k=>$val){
fwrite($f,$val);
$i++;
}
fclose($f);
?>