Паскаль, ! ввести с клавиатуры массив из 12 элементов.переставить первый и последний элемент. третий заменить на восьмой

var  x, n: integer; begin  write('n = ');   readln(n);   x : = n mod 10;   n : = n div 10;   while n > 0 do  begin    if n mod 10 < x then    begin      writeln('последовательность по возрастанию');       readln;       exit;     end;     x : = n mod 10;     n : = n div 10;   end;   writeln('последовательность по возрастанию');   readln; end.

название книги                                 автор                                       жанр

дюймовочка                                         андерсен х.к.                       сказки

серебрянное копытце                   бажов п.п.                           сказки

мишкина каша                                   носов н.                               рассказы

сказка о потеренном времени   шварц е.                               сказка

ну, погоди                                           камов ф. курляндский а.

 

                                                              хайт а.                                   сказка по мультфильму