Определить, сколько раз в заданном тексте встречается заданный символ

var s:string;
     zs:char;
     i,k:byte;
begin
writeln('Text:');
readln(s);
write('Simvol zs=');
readln(zs);
k:=0;
for i:=1 to length(s) do
if s[i]= zs then k:=k+1;
write(k,' raz');
readln
end.

program p1;
uses crt;
var s,t:string;
    i,j:integer;
Begin
writeln('BBEDITE Ctroky ');
readln(s);
writeln('BBedite CimBol ');
readln(t);
j:=0;
for i:=0 to length(s) do
 begin
  if s[i]=t then j:=j+1;
 end;
writeln('Cimvolov ',t,'=',j);
readkey;
End.

function F(s: string; c: char): byte;
begin
  if Pos(c, s) = 0 then
    F := 0
  else
    F := 1 + F(Copy(s, Pos(c, s) + 1, Length(s)), c)
end;

Program Symbol;
   USES CRT;
  var t:string;
  k,i:integer;
  Begin
    writeln('Vvedite text:');
    read(t);
    k:=0;
    for i:=1 to length(t) do
     Begin
       If t[i]='a'
       then k:=k+1;
       end;
       writeln(' Simvol a vstrechaetsa ' ,k, ' raz ');
       readkey;
       end.

Program Symbol;
   USES CRT;
  var t:string;
  k,i:integer;
  Begin
    writeln('Vvedite text:');
    read(t);
    k:=0;
    for i:=1 to length(t) do
     Begin
       If t[i]='a'
       then k:=k+1;
       end;
       writeln(' Simvol a vstrechaetsa ' ,k, ' raz ');
       readkey;
       end.