Посчитать количество точек, запятых и пробелов

program xxx;
 
const n = 5; //кол-во символов
 
var c : array [1..n] of char;
        t,z,p,i : integer;
 
begin
    t := 0;
    z := 0;
    p := 0;
    for i := 1 to n do
        begin
            write('Введите символ: ');
            readln(c[i]);
            if c[i] = ' ' then
                inc(p)
            else if c[i] = ',' then
                inc(z)
            else if c[i] = '.' then
                inc(t);
        end;
    writeln('Точек: ',t);
    writeln('Пробелов: ',p);
    writeln('Запятых: ',z);
    readln;
end.

var
  i,j,k,l:byte;
  s:string;
 
begin
  writeln('Введите строку : ');
  readln(s);
  j:=0; k:=0; l:=0;
  for i:=1 to length(s) do begin
    case s[i] of
      ' ' : inc(j);
      ',' : inc(k);
      '.' : inc(l);
    end;
  end;
  writeln('кол-во пробелов : ',j);
  writeln('кол-во запятых : ',k);
  writeln('кол-во точек : ',l);
  readln;
end.