Palindrome

program palindrome;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils;

var
  pal: string;
  i, j: integer;
  unflip, flip: array of string;

begin
  writeln('enter a string');
  readln(pal);
  writeln;
  setlength(unflip, length(pal));
  setlength(flip, length(pal));
  j := -1;

  for i := 1 to length(pal) do
  begin
    j := j + 1;
    unflip[i] := pal[i];
    flip[i] := pal[length(pal) - j];
  end;

  for i := 1 to length(pal) do
    write(unflip[i]);
  writeln;
  for i := 1 to length(pal) do
    write(flip[i]);
  writeln;

  i := 0;

  repeat
    i := i + 1;
  until (unflip[i] <> flip[i]);
  writeln(i);
  writeln(length(pal));
  if i = (length(pal) + 1) then
  begin
    writeln('yes');
  end
  else
    writeln('no');

  readln;

end.