Добавить к последовательности наименьшее число символов так, чтобы последовательность стала палиндромом - Pascal

var s: array [1..255] of char;
    i, j, n: integer;
begin
  write('n = ');
  readln(n);
  writeln('Enter symbols:');
  for i := 1 to n do
    begin
      write('s(', i, ') = ');
      readln(s[i])
    end;
  writeln('Source array:');
  for i := 1 to n do write(s[i]);
  writeln;
  i := n;
  while s[i] = s[i - 1] do dec(i);
  for j := i - 1 downto 1 do
    begin
      inc(n);
      s[n] := s[j]
    end;
  writeln('Result:');
  for i := 1 to n do write(s[i]);
  readln
end.