недавно начал изучать САОД

Большие буквы расшифруйте.

Структуры и алгоритмы обработки данных

Такой вариант подойдет?
[code lang=pascal]var
n, k: integer;
begin
var a := Arr(10, 11, 12, 13, 14, 15, 16, 17, 18, 19);
a.Println;
repeat
write('enter n:');
readln(n);
until n in [0..a.Length - 1];
for var i := n to a.Length - 2 do a[i] := a[i + 1];
setlength(a, a.Length - 1);
a.Println;
repeat
write('enter k:');
readln(k);
until k > 0;
setlength(a, a.Length + k);
for var i := a.Length - 1 downto a.Length - k - 1 do
a[i] := a[i - k];
a.Println;
while k > 0 do
begin
a[n + k] := random(10) + 20;
dec(k);
end;
a.Println
end.[/code]

здравствуйте, спасибо большое. Думал попроще код для новичка будет, ну и на этом спасибо)

Думал попроще код для новичка будет

Ну, это АВС.Net.
Это же Ваш хеш-тек:

#PascalABC.NET

Ваше задание "Динамические Массивы", т.к. количество элементов массива изменяется, чтобы понять, что написано в коде, достаточно посмотреть HELP. Всего 6 000 знаков, но в них кратко, но объемно описаны базовые возможности АВС.Net, при работе с массивами : Инициализация, Ввод, Вывод, Изменение размера самого массива.

Вы изучаете АВС.Net, это не просто IDE, которая копирует ТР(Turbo Pascal), это уже продвинутая оболочка, которая, по своим возможностям, соизмерима с С#(ну плюс-минус копейки).
Чем раньше Вы будете применять "все вкусняшки", этой IDE, тем раньше Вы научитесь программировать.