Sửa lỗi sai trong chương trình sau

Sửa lỗi sai trong chương trình sau : 
Var S , A : String (100) ,
i,n : integer ;
Begin
Reldn (S)
n : =lenth (S);
Fori = 1 to n do 
S [i] =UPCASE ( S [i] )
WRiteln (S)
Realdn
End.