Ввод слов из текста в массив

[koma00]

program stoluci;

var
   a: array [1..40, 1..2] of string[50];
   i,j:integer;

procedure vvod;

var
   f:text;
   s,s1,s2:string;

begin
     assign(f,'input.txt');
     reset(f);
     for i:=1 to 40 do
     begin
         readln(f, s);
         s1:='';
         for j:=1 to length(s) do
         begin
              if pos(s[j], ' ')=0 then
                 begin
                      s1:=s1+s[j];
                 end
              else
                 begin
                      if a[i,1]=' ' then
                         a[i,1]:=s1;
                      if a[i,2]=' ' then
                         a[i,2]:=s1;
                      s1:='';
                 end;
         end;
     end;
     close(f);
end;

begin
     vvod;
     for i:=1 to 40 do
         for j:=1 to 2 do
             writeln(a[i,j]);
         writeln;
     write(a[1,1])
end.

Я переписал код, но теперь в ячейках массива a[i,1] и a[i,2] одинаковые значения. Где здесь ошибка

[koma00]

Подскажите пожалусте где у меня ошибка?????