Пожалуйста, помогите!!!
Дан массив a из n целых чисел и натуральное число K. Удалить из массива a элемент с номером k

Спасибо большое за помощь!

var a:array [1..1000] of integer;k,i,n:integer;beginwrite ('kol-vo elementov v massive=');readln (n);write ('k=');readln (k);writeln ('vvedite massiv');for i:=1 to n doreadln (a[i]);write ('massiv: ');for i:=1 to n dowrite (a[i],' ');if (k<=n) and (k>0) thenfor i:=k+1 to n doa[i-1]:=a[i];writeln;write ('massiv posle ydalenija: ');for i:=1 to n-1 dowrite (a[i],' ');end.