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.