Составить программу для определения, сколько фамилий в списке начинаются с буквы А — Pascal(Паскаль)

uses crt;

var
  n, i, k: integer;
  f: string;

begin
  write('Сколько фамилий в списке n=');
  readln(n);
  writeln('Введите фамилии:');
  k := 0;
  for i := 1 to n do
  begin
    read(f);
    if f[1] = 'А' then
      k := k + 1; // я написал А русское, если ввод латиницей, то смените
  end;
  writeln;
  write('Количество фамилий на букву А=', k);

end.

var
  s:string;  
  i,k: integer;
  InWord: boolean;
begin
  write('Введите список фамилий, разделенных запятой, пробелом или точкой с запятой  ');
  readln(s);
  k:= 0;
  
  InWord := false;
  for i:= 1 to length(s) do
    if not(InWord) then
      begin
        if s[i]='А' then inc(k); // А русского алфавита
        InWord := true;
      end
    else if s[i] in [',',';',' '] then
      InWord := false;
  writeln('Число фамилий ', k);
end.