rostr5.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

var s:string;
    c:char;
    i,n:byte;
begin
write('s=');readln(s);
write('c=');readln(c);
n:=0;
for i := 1 to length(s) do
   if upcase(s[i])=upcase(c) then inc(n);
write(n);
end.