Chương trình sau hãy tìm những lỗi sai và sửa lỗi cho đúng

Chương trình sau hãy tìm những lỗi sai và sửa lỗi cho đúng 
Program H C_N 
Uses crt
Var a,b,s,cv := red ;
Begin 
While ('Nhap chieu dai = '); readln (a);
Wrte ('Nhap chieu r readln( );
S= a x b ;
CV ; (a + b) :2; 
Write (' dien tich hinh chu nhat la 's : to :2 );
Write (' chu vi hinh chu nhat : ' cv ; b : 2 );
readln ;
End