Удалить из массива k-й элемент

program massiv ;
uses crt;
nbsp;nbsp;type mas=array[1..1000] of integer;
var i,n,k: integer;
nbsp;nbsp;nbsp;nbsp;m:mas;
begin writeln (введи число) ;
readln (n);
nbsp;randomize;
nbsp;for i:=1 to n do
nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;m[i]:=random(45)+1;
nbsp;nbsp;nbsp;nbsp;write(m[i], nbsp;);
nbsp;nbsp;nbsp;nbsp;end;
nbsp;writeln;
nbsp;write(введи номер эл-та ); readln (k) ;
nbsp;nbsp;writeln;
nbsp;for i:=1 to n do
nbsp;if igt;=k then m[i]:=m[i+1];
nbsp;for i:=1 to n-1 do
nbsp;write(m[i], nbsp;);
nbsp;end.