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:=real ;
begin
While ( ' nhap chieu dai =');Readln(a) ;
wrirec(' nhap chieu r />S=a×b  ;
CV : (a+b)÷2 ;
writeln (' dien tich hinh chu nhat la :',S÷6÷2);
writeln (' chu vi hinh chu nhat :',CV÷6÷2);
Readln ;
End.