Viết ct nhập vào xâu a .In lên màn hình số lượng kí tự trong xâu

program soluong;

uses crt;

var s:string;

begin

     clrscr;

     write(‘Nhap xau: ‘);   readln(s);

     write(‘So luong ki tu cua xau la: ‘,length(s));

     readln;

end.