[pascal] wczytywanie z pliku liczb oddzielonych spacjami

[SK8]

w pliku tekstowym dane maja postać np:

Kod: Zaznacz cały

3 2 10
1 1 11

Potrzebuje wczytać 3 do zmiennej x1, 2 do zmiennej x2, a 10 do zmiennej r1. Napisałem to tak:

Kod: Zaznacz cały

type
    plik=TEXT;
var
   we           :plik;
   x1,y1        :integer;
   x2,y2        :integer;
   r1,r2        :integer;

   znak         :char;
   s,s1         :string[20];
   kod          :integer;
   i            :byte;

BEGIN
     Assign(we,'D:\dane1.txt');
     Reset(we);
     clrscr;

     writeln('Wcztywanie danych...');

     readln(we,s);

     i:=1;
     WHILE s[i]<>' ' DO
           begin
           s1[i]:=s[i];
           i:=i+1;
           end;

     Val(s1,x1,kod);
     writeln('x1: ',x1);

     readln;
END.

Ale zawsze x1 ma na końcu wartość 0. Co jest źle?