Строку с файла разбить на переменные

program bv7_9;
type s=record
   nomer:integer;
   otkyda:string[20];
   kyda:string[10];
   dni:byte;
end;
var inp:text;inpi:string; i,j:integer; spis:array[1..10] of s;
 
begin
i:=0;
//writeln('имя файла?');readln(inpi);
assign(inp,{inpi}'1.txt');
reset(inp);
 
while not eof(inp) do
 begin
i:=i+1;
 
with spis[i] do
readln(inp,nomer,otkyda,kyda,dni);
 
  end;
  close(inp);
 
for j := 1 to i do
with spis[i] do writeln(nomer,' ',otkyda,' ',kyda,' ',dni);
writeln;
writeln('nomer=',spis[1].nomer);
writeln('otkyda=',spis[1].otkyda);
writeln('kyda=',spis[1].kyda);
writeln('dni=',spis[1].dni);
readln;
end.

var s,s1:string;
    c:integer;
........................
n:=0;
while not eof(inp) do
 begin
  readln(inp,s);
  n:=n+1;
  with spis[n] do
   begin
    val(copy(s,1,pos(' ',s)-1),nomer,c);
    delete(s,1,pos(' ',s));
    otkyda:=copy(s,1,pos(' ',s);
    delete(s,1,pos(' ',s));
    kyda:=copy(s,1,pos(' ',s);
    delete(s,1,pos(' ',s));
    val(s,dni,c);
   end;
end;

nomer:=strtoint(copy(s,1,pos(' ',s)-1));