viết chương trình nhập từbàn phím xâu kí tự có độ dài không quá 20 ký tự cả chữ và số .Duawd ra màn hình số lượng các chữ số từ 3 đến 7 có trong xâu...helppp meee

program Min;
uses crt;
const so=['3','4','5','6','7'];
var s:string;
    i,dem:integer;
begin
   clrscr;
   repeat 
   begin
      writeln('Nhap xau: ');
      readln(s);
   end;
   until length(s)<=20;
   for i:=1 to length(s) do
   if s[i] in so then inc(dem);
   writeln('So luong cac so tu 3 den 7 co trong xau la: ',dem);
   readln
end.
   
 Bạn tham khảo nha, chỗ nào chưa hiểu thì hỏi mình :D

var s:string;
i,dem:integer;
begin
clrscr;
repeat 
begin
writeln(‘Nhap xau: ‘);
readln(s);
end;
until length(s)<=20;
for i:=1 to length(s) do
if s[i] in so then inc(dem);
writeln(‘So luong cac so tu 3 den 7 co trong xau la: ‘,dem);
readln
end.