Viết chương trình nhập hai xâu kí tự. In ra độ dài từng xâu và tổng độ dài hai xâu

Program Hotboy ;

uses crt;

var h,o:string;

begin

clrscr;

writeln('Nhap xau thu nhat'); readln(h);

Writeln('do dai xau thu nhat ',length(h));

writeln('Nhap xau thu hai ');readln(o);

writeln('Do dai xau thu hai la: ',length(o));

writeln('Tong do dai cua hai xau la: ',length(h)+length(o));

readln

end.

var a,b:string;

begin

write('Nhap xau 1: '); readln(a);

write('Nhap xau 2: '); readln(b);

write('Do dai xau 1 la: ',length(a));

write('Do dai xau 2 la: ',length(b));

write('Tong do dai 2 xau la: ',length(a)+length(b));

readln

end.