симметричные слова паскаль.

[f1z1]

в общем задание вот такое..
Дано: Const N=... ;
Var X { непустой текстовый файл с непустыми строками) . text; T : boolean; в каждой строке файла находится одно слово; последовательность не более, чем N символов } Написать процедуру, в которой переменной Т присваивается значение true или false в зависимости от того, есть или нет среди строк файла X хотя бы одно симметричное слово. Требуется использовать в процедуре вспомогательную (вложенную) функцию для анализа очередной строки файла.
Для анализа строки необходимо строку перенести в packed array [1..n] of char, и уже в нем анализировать строку на симметричность
Помогите пожалуйста написать программу..
нужно написать так же процедуру заполнения файла, заполняя который нужно использовать тип char
У меня трудности возникают на этапе процедуры ввода..
здесь точка означает конец файла а запятая конец строки.. в общем пожалуйста помогите дописать программу)

program pr8(input,output);
  const n=10;
  var x:text; t:boolean;

  procedure vvod(var x:text);
    var y:char;
    begin
      rewrite(x);
      read(y);
      write(x,y);
      while y <> '.' do
        begin
          if y<> ',' then
          begin
            read(y);
            write(x,y);
          end
          else writeln(x);
        end;
    end;

begin
  assign(x,'x.pas');
  vvod(x);

end.