Cho chương trình sau (bằng Free Pascal)

Cho chương trình sau (bằng Free Pascal):
uses crt ;                                                                       (1)
var lj ; integer                                                                (2)
begin
clrser                                                                             (3)
for i :=a to z do write( cac chu cai tu a den z la : i,,3 ) ; (4)
for j :=A to Z do write( cac chu ca tu A den Z la : j,3) ;    (5)
readln ;                                                                              (6)
end.                                                                                   (7)
a, Chương trình trên bị sai về vị trí các dòng (2) (4) (5) (7). Hãy bổ sung hoặc sửa lại vào các dòng này để được chương trình đúng 
b, Hãy cho biết công dụng của chương trình trên .