Cómo contar el número de apariciones de un carácter en un arreglo en Pascal.

Tengo que escribir un código en Pascal que tenga en cuenta la frecuencia de aparición de un carácter en el código y lo muestre a través del modo de salida.

Cambios en la entrada P2:

Segundo intento en la fase de codificación.
Intenté revisar el código. Añadí la variable de salida <code>writeln('input array of characters');</code> & <code>writeln('Number of Occurrences', k);</code>, que debería ayudarme a mostrar cuántas veces aparece el carácter “S” en el código en general, además utilicé los comandos <code>for</code> & <code>if</code> para mostrar los valores finales basados en las condiciones, si la frecuencia es 1 entonces cuenta en <code>S</code>, aún obtengo errores, echa un vistazo a la Entrada P2 & Salida P2

Entrada P1
function Count(t, s: String): Integer;
var
  Offset, P: Integer;
begin
  Result := 0;
  Offset := 1;
  P := PosEx(t, s, Offset);

while P > 0 do
  begin
    Inc(Result);
    P := PosEx(t, s, P + 1);
  end;
end;

Salida P2
Sistema Operativo Objetivo: Linux para x86-64
Compilando main.pas
main.pas(5,3) Error: Identificador no encontrado “Result”
main.pas(7,8) Error: Identificador no encontrado “PosEx”
main.pas(8,3) Error: Identificador no encontrado “unsigned”
main.pas(8,12) Fatal: Error de sintaxis, se esperaba “;” pero se encontró “identificador N”
Fatal: Compilación abortada
Error: /usr/bin/ppcx64 devolvió un código de salida de error

Entrada P2
programa p1

var S:string

i:integer
begin
writeln(‘input array of characters’);
k:=O;
for i:=1 to length (S) do
if (S[i]=’m’) and (S[i+1]=’a’) then k:=k+1;
writeln(‘Number of Occurrences’,k);
Readln;
end.

Salida P2
Compilando main.pas
main.pas(2,1) Fatal: Error de sintaxis, se esperaba “;” pero se encontró “VAR”
Fatal: Compilación abortada
Error: /usr/bin/ppcx64 devolvió un código de salida de error