Viết chương trình nhập vào một xâu kí tự. Hãy cho biết có bn chữ số 5 xuất hiện trong xâu

program oken;
uses crt;
var s:string;
    i,dem:byte;
begin
        clrscr;
        write('nhap xau: '); readln(s);
        for i:=1 to length(s) do
                if s[i]='5' then
                        dem:=dem+1;
        writeln('co ',dem,' chu so 5 trong xau');
        readln;
end.

uses crt;
var s:string;
    i,dem:byte;
begin
   clrscr;
   write('Nhap xau: '); readln(s);
   for i:=1 to length(s) do
   if s[i]='5' then inc(dem);
   write('Co ',dem,' chu so 5 trong xau');
   readln
end.