В заданном предложении подсчитать, сколько раз встречается первая буква

var
 s: string;
 i,count: integer;
begin
 readln(s);
 for i:= 1 to length(s) do
  if (s[i] = s[1]) and (s[1] <> ' ') then
   inc(count);
 writeln(count);
end.

program massiv;
const N=16;
var b:array [1..n] of integer;
i,z,max,min:integer;
BEGIN
for i:=1 to n do begin write(b[i]);
readln(b[i]);
end;
max:=1;min:=1;
for i:=2 to n do begin 
if b[i]>b[max] then max:=i;
if b[i]<b[min] then min:=i;
end;
z:=b[max];
b[max]:=b[min];
b[min]:=b[max];
b[min]:=b;
writeln('b[i]');
END.

Program massiv2;
const n=8;
var k,i:integer;
mas:array [1..n] of integer;
BEGIN
randomize;
for i:=1 to n do begin mas[i]:=random(9);
writeln('mas[',i,']=',mas[i]);
end;
k:=0;
for i:=0 to n do
if mas[i]=5 then k:=k+1;
writeln('k='k);
END.

Program cifra;
Uses crt;
Var t,c: string; k,i: integer;
Begin
Clrscr;
Write('Введите число: ');Readln(t);
Write('Введите искомую цифру: ');Readln(c);
For i:=1 to length(t) do
if t[i]=c then k:=k+1;
Write('В данном числе цифра ',c,' встречается ',k);
If (k mod 2 = 0) or (k mod 3=0) or (k mod 4=0) then write(' раза')
else write(' раз');
End.

var s:string;
begin
write('s=');
readln(s);
for i:=1 to length(s)-1 do
     if s[i]=s[length(s)] then delete(s,i,1)
writeln('полученная строка:',s);
end.

var s,help:string;
begin
write('s=');
readln(s);
while pos('о',s)>0 do
     begin
     help:=copy(s,pos('о',s)+1,length(s)-pos('о',s);
     insert('ко',s,pos('о',s)+1);
     end;
writeln('полученная строка:',s);
end.

var s,help:string;
begin
write('s=');
readln(s);
while pos('ph',s)>0 do
     begin
     help:=copy(s,pos('ph',s)+1,length(s)-pos('ph',s)-1);
     insert('f',s,pos('ph',s));
     insert(help,s,pos('ph',s)+1);
     end;
writeln('полученная строка:',s);
end.

uses crt
var m:array[1..6,1..7]of integer;
i,j,max,s:integer;
begin
 clrscr;
 randomize;
 for i:=1 to 6 do
 begin
  for j:=1 to 7 do
  begin
   m[i,j]:=random(99);
   write(m[i,j]:3);
  end;
  writeln;
 end;
 
 for j:=1 to 7 do
 begin
  max:=m[1,j];
  for i:=1 to 6 do if m[i,j]>max then max:=m[i,j];
  writeln('Максимум в ',j,'-ом столбце = ',max);
  s:=s+max;
 end;
 
 writeln('Сумма=',s);
 readln;
end.