решить задачу на Pascal

[sweeep]

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

[Serge_Bliznykov]

что не получается?
Удаление - это переписать числа стоящие справа от k (каждый на один элемент левее),
потом уменьшить число N (равное количеству элементов массива).

примерно так:

const MaxSize = 20;
var 
  Mas[1..MaxSize] of integer;
  i, k, N : integer;
begin
  Randomize;
  N := MaxSize;
  for i:= 1 to N do Mas[i] := Random(51);

  repeat
    WriteLn('содержимое массива: ');
    for i:=1 to N do Write(Mas[i]:3,' ');
    WriteLn;
    
    Write('Введите K номер удаляемого элемента (0-завершить программу) ');
    Readln(k):
    if (K>0) and (K<=N) then begin
       for i:=k to N-1 do Mas[i] := Mas[i+1];
       Dec(N);
       WriteLn('Элемент успешно удалён!') 
    end;

  until (K=0) or (N=0);
  WriteLn('Конец!');
  Readln
end.