Создать массив из 10 случайных чисел на промежутке от 0 до 100, в первую позицию вставить число 100, предпоследний элемент удалить, вывести на экран исходный и конечный массивы.

Uses crt;
const N=10;
var a:array [1..N] of integer;
    x:integer;
begin
     randomize;
     for x:=1 to 10 do
     begin
         a[x]:=random(101);
         writeln('a[',x,']:',a[x]);
     end;
     a[1]:=100;
     a[9]:=a[10];
     writeln;
     for x:=1 to 9 do
         writeln('a[',x,']:',a[x]);
end.