Pali1

{Программа считывает извне буквы, заглавные латинские, в некотором количестве (в идеале - до точки) и проверяет, можно ли из них составить палиндром - симметричную такую штуку. Если нет - сообщает об этом, если да - тоже сообщает, но ещё и выводит пример палиндрома из этих букв.
Компилируется, но не работает =((( }

program palindrom;
uses crt;

var
mass: array['A'..'Z'] of integer;
c, i, c1: char;
k, j: integer;

begin
clrscr;

for i:='A' to 'Z' do
mass [i]:=0;

read (c);
while c<>'.' do begin
      mass[c]:=mass[c]+1;
      read (c);
end;

k:=0;

for i:='A' to 'Z' do
      if mass[i] mod 2 = 1
      then begin
      c1:=c;
      k:=k+1;
      end;

if k>1 then begin
      writeln ('No!')
      end else begin
           for i:='A' to 'Z' do
                for j:=1 to mass[i] div 2
                do write(i);
           if k=1 then write(c1);
           for i:='Z' downto 'A' do
                for j:=1 to mass[i] div 2
                do write(i);
end;
end.