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

Sửa lỗi chương trình :
a) CT1
a:=5;
While a<5 then write('A')
b) CT2 
s=10 ; n=0;
While s<10 do n:=n+1;
      S:=s+n;
Writeln(S)