Создать массив из 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.