Добавить перед каждым словом его порядковый номер в предложении. pascal написать программу кто сможет

Pascal ABC

var

 s,news:string;

 k:longint;

begin

 k:=0;

 read(s);

 s:=s+' ';

 while s <> '' do

 begin

   if copy(s,1,pos(' ',s)) = ' ' then

   begin  

     delete(s,1,pos(' ',s));

     news:=news+' ';

   end

   else

   begin

     inc(k);

     news:=news+inttostr(k)+'.'+copy(s,1,pos(' ',s));

     delete(s,1,pos(' ',s));

   end;

 end;

 writeln(news);

end.