{* Задача 139 *}

Unit ZADACH139;
Interface
Implementation
Begin
 writeln('Вводится слово из файла INPUT.txt ;Удалить из слова символы так чтобы получ. палиндром.Ответ записать в файл OUTPUT.txt ');
End.

Program pas0;

Uses zadach139.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  fil  : text;
  fl   : text;
  v    : String;
  c    : String;
  b    : String;
  r    : longint;
  r1   : longint;
  i    : longint;
  j    : longint;
  flag : longint;
Begin
  clrscr; {* Стираем всё с экрана *}
  assign(fl, 'output.txt'); {* Подключение к файлу 'output.txt' через переменную fl *}
  assign(fil, 'input.txt'); {* Подключение к файлу 'input.txt' через переменную fil *}
  reset(fil); {* Чтение из файла через переменную fil *}
  readln(fil, v);
  close(fil); {* Файл fil будет закрыт *}
  r1 := length(v);
  j := r1;
  i := 1;
  c := '';
  b := '';
  flag := 0;
  While itrunc(r1 / 2) Do
    If v[i]v[j] Then
    Begin
      inc(i); {* Увеличиваем i на 1 *}
      j := j - 1;
    End;
    Else Begin
      If i = j Then
      Begin
        b := v[i] + b;
        Goto m;
      End;
  flag := 1;
  b := v[i] + b;
  c := c + v[i];
  inc(i); {* Увеличиваем i на 1 *}
  j := j - 1;
End;
  m : v := c + b;
If flag = 0 Then
  v := 'палиндром невозможен';
rewrite(fl); {* Подготовка переменной fl для записи в файл *}
write(fl, v);
close(fl); {* Файл fl будет закрыт *}
write(v);
readln; {* Ждем нажатия Enter *}
End....