Изменения

procedure FillPalMatrix(s: string);//s-исходная подпоследовательность for j:= 1 to n do begin Mat L[j, j]:= 1;//L-массив длин for i:= j - 1 downto 1 do begin count:= MatL[i + 1, j]; t:=j; while s[t] <> s[i] do dec( t);-- found:= t - i + 1; if t >= i + 2 then found:= MatL[i + 1, t - 1] + 2; if count < found then count:= found; Mat L[i, j]:= count;