Удалить i-й элемент в одномерном массиве — Pascal(Паскаль)

uses crt;
type massiv=array[1..100] of integer;
var
i,n,c:integer;
mas:massiv;
 
procedure Delete(Var m:massiv; Var q:integer; k:integer);
Var
  i:integer;
Begin
  for i:= k to q-1 do
  m[i] := m[i+1];
  m[q]:=0;
  Dec(q);
End;
 
begin
  clrscr;
  write('Введите коллимчество элементов ');readln(n);
  writeln;
  for i:=1 to n do
  begin
    write(i,': ');readln(mas[i]);
  end;
  writeln;
  write('Введите номер элемента для удаления  ');
  readln(c);
  if c<=n then
  Delete(mas,n,c)
  else writeln('Вы ввели неправильное значение,всего ',n,' элементов!');
  writeln;
  for i:=1 to n do
  write(mas[i],'  ');
  readln;
 
end.