написать программу на Pascal -

В одномерном массиве целых чисел, содержащем 20 элементов, удалить k-ый элемент массива. Массив заполняется случайным образом числами от 0 до 50.

const

n = 20;

var

a:array[1 ... n] of integer;

i, k:integer;

begin

randomize;

writeln ('Исходный массив: ');

for i : = 1 to n do

begin

a[i] : = random (51);

write (a[i], ' ');

end;

writeln;

write ('k = '); readln (k);

if (k > n) or (k < 1) then

begin

writeln ('элемента с таким индексом нет');

readln;

Exit;

end;

for i : = k to n - 1 do

a[i] : = a[i + 1];

a[n] : = 0;

writeln ('Измененный массив:');

for i : = 1 to n - 1 do

write (a[i], ' ');

readln;

writeln;

end.