Симметричная последовательность

uses crt;
const nmax=200;
type mas=array[1..nmax] of byte;
{функция проверки симметричности}
function Simm(a:mas;n:byte):boolean;
var i:byte;
    f:boolean;
begin
i:=1;
f:=true;
while (i<=n div 2)and f do
if a[i]<>a[n-i+1] then f:=false
else i:=i+1;
Simm:=f;
end;
var a,b:mas;
    n,m,i,j,k:byte;
begin
clrscr;
repeat
write('Введите размер исходной последовательности до ',nmax div 2,' n=');
readln(n);
until n in [1..nmax div 2];
writeln('Введите элементы последовательности, числа от 1 до 9:');
for i:=1 to n do
 begin
  repeat
   write('a[',i,']=');
   readln(a[i]);
  until a[i] in [1..9];
 end;
clrscr;
writeln('Исходная последовательность:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
if Simm(a,n) then
write(0,' последовательность симметирчная')
else
 begin
  k:=n;{запомним начальный размер массива}
  m:=0;{количество добавленных}
  while not Simm(a,n) do{пока не симметрично}
   begin
    m:=m+1;{+1 допишем}
    n:=n+1;{+1 к размеру}
    if m=1 then a[n]:=a[1]{если один элемент, припишем такой же}
    else{иначе}
     begin
      for i:=n downto k+2 do{сдвинем все приписанные элементы}
      a[i]:=a[i-1];{на 1 вправо}
      a[k+1]:=a[m];{за исходным впишем очередное с левого края}
     end;
   end;
  writeln(m);{выводим количество}
  for i:=k+1 to n do{выводим приписанные слева направо}
  write(a[i],' ');
 end;
readln
end.

Uses CRT;
Var a:array[1..100] of shortint; n,m,i:shortint;
begin
repeat
Writeln('Ââåäèòå êîë-âî åëåìåíòîâ');
readln(n);
until (n>=1) and (n<=100);
Writeln('Ââåäèòå èõ');
for i:=1 to n do
begin
repeat
read(a[i]);
until (a[i]>=1) and (a[i]<=9);
end;
clrscr;
Writeln('Ìèíèìàëüíîå êîëè÷åñòâî ', n-1);
Writeln('Ïîñëåäîâàòåëüíîñòü:');
for i:=n-1 downto 1 do
Write(a[i],' ');
readln;
end.