program r13_17;
uses crt;
const n=10;
type TArr= array[1..n,1..2] of string;
var f:text;
      s:string;
      i,k:byte;
      A:TArr;
procedure Print(X:TArr; k:byte);
  var i:byte;
  begin
   for i:=1 to k do writeln(X[i,1],' ',X[i,2]);
 end;
BEGIN
Assign(f,'D:\УЧЕБА\ практика все\практика\test.txt');
Reset(f);
i:=0;
 while not eof(f) do begin
   readln(f,s);
   k:=pos(' ',s);
   Inc(i);
   A[i,1]:=copy(s,1,k-1);
  A[i,2]:=copy(s,k+1,length(s)-k);
 end;
close(f);
Print(A,i);
readln;
END.