Viết lại đoạn chương trình theo cách khác?

Đề: Viết lại đoạn chương trình sau đây bằng cách sử dụng câu lệnh While ... Do ... thay cho For ... To ... Do:
T:=0;
For i:=1 to 100 do 
     T:=T+1/i;
Writeln(T);
**Đoạn chương trình được viết lại theo While ... Do như sau:
T:=0;
i:=1;
While i<=100 do 
     Begin
          T:=T+1/i;
          i:=i+1;
     End;
Writeln(T);