Паскаль: необычный цикл

[JUDAS]

program Project18;
var
 k : integer;
 txt : string;
 Chars : array of record
   xChar : char;
   count : integer;
 end;

 procedure CheckChar(X : char);
 var i : integer;
     f : boolean;
 const
    filter = ''; // маска фильтра. Например если filter = '0123456789'; цифры будут игнорится 
 begin
 //  if Pos(X, filter)>0 then exit; // фильтр 
   i:=0; f:=false;
   while i<LenGth(Chars) do
   begin
     f:= chars[i].xChar=X;
     if f then
     begin
      Inc(chars[i].count);
      break;
     end;
     inc(i);
   end;
   if not f then
   begin
    SetLenGth(Chars, LenGth(Chars)+1);
    Chars[High(Chars)].xChar:=X;
    Chars[High(Chars)].count:=1;
   end;
 end;

begin
  writeln('enter text '); readln(txt);
  for k:=1 to LenGth(txt)-1 do   // -1 по условию крайняя "точка"
  CheckChar(txt[k]);
  for k:=0 to LenGth(Chars)-1 do
  writeln('symbol ="',chars[k].xChar,'" - ',chars[k].count);
  Finalize(Chars);
end.

Читает все символы, даже пробелы,запятые, числа и точки.
Выше указано место где можно фильтровать определённые