Hãy viết chương trình: Nhập vào 1 xâu kí tự và kiểm tra số lần 1 kí tự t bất kì xuất hiện trong xâu vừa nhập Nhập xâu: Covid Kí tự kiểm tra: o Kết quả: 1 (Tức là có 1 kí tự o)

program giup;
uses crt;
var s:String;
    t:char;
    i,dem:integer;
begin
dem:=0;
write('nhap xau: '); readln(s);
write('ki tu kiem tra: '); readln(t);
  for i:=1 to length(s) do
   if s[i]=t then dem:=dem+1;
write('ket qua: ',dem);
  readln;
end.