Adobe animate проблема белый экран, не видно то что нарисовал.

Program abra;

Var

X : Array [1..20, 1..20] Of

real;

N : Integer;

P : Real;

i, j: Integer;

begin

WriteLn ('Вычисление произведения ');

Write ('Введите размерность:  N = ');

ReadLn (N);

WriteLn ('Введите элементы массива:');

For i := 1 To N Do

For j := 1 To N Do

Begin

Write ('X[', i, ',', j, '] = ');

ReadLn (X [i, j] );

End;

P := 1;

For i := 1 To N Do

For j := 1 To N Do

P := P * X [i, j];

if (X [i,j])=0 then writeln('присутствуют нулевые элементы')  else

WriteLn ('Произведение: P = ',p: 6: 1);

readln;

 end.

Объяснение:

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  var s:=ReadLnString('Вводите:');
  s.ToWords.Where(x->x=ReverseString(x)).PrintLn;
end.

Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган и с в шалаш

Вариант, если исключить однобуквенные:

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  var s:=ReadLnString('Вводите:');
  s.ToWords.Where(x->x=ReverseString(x)).
    Where(x->x.Length>1).PrintLn;
end.

Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган шалаш