Подсчитать количество введенных букв

[WebbMan]

repeat
read(c);
if c<>'.' then inc(Cnt[c]);
until c='.';

спасибо учла...

Сделала, только вот результат кривой почему то...

Может кому пригодится вот:

var
  cnt : array[char] of integer;
  c : char;
  g : integer;
  y : char;
  i : integer;
  a,Size : integer;
  arr,two_string : string;
begin
  for c:=Low(cnt) to High(Cnt) do cnt[c] := 0;

  repeat
    read(c);
    if c<>'.' then inc(Cnt[c]);
  until c='.';

  {ўлў®¤ १г«мв*в*}
  for c:=Low(cnt) to High(Cnt) do
    if cnt[c]>0  then
    {   WriteLn('‘Ё¬ў®«: ',c,' Є®«ЁзҐбвў®: ',cnt[c]); }
       if cnt[c] mod 2 = 0 then begin
        a:=cnt[c] div 2;
        for i:=1 to a do arr:=arr+c;



         end

       else if cnt[c] > g then begin g:=cnt[c]; y:=c; end;

       g:=g div 2;
       for i:=1 to g do arr:=arr+y;
     {  arr:=arr+y; }
       writeln('получили нужную нам половину: ',arr);


       Size:=SizeOf(arr);

       for i:=1 to Size  do
     {  writeln(arr[Size-i]); }
        two_string:=two_string+arr[Size-i];
         writeln('перевернули',two_string);
      write(arr+y); write(two_string);
  readln;

end.