вопрос по паскалю абс

Попробуй - расплатись!
С заполнением массива я не понял.. . Заполнил как смог.
Можешь сам сделать заполнение через Random
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
var
M : array [1..1000] of smallint;
Index, N : smallint;

procedure Udalit(P : smallint);
begin
for var Pos := P to N - 1 do
M[Pos] := M[Pos + 1];
N := N - 1;
end;

function Delimost(P : smallint) : Boolean;
var
V : Integer;
Q : Real;
begin
// Предположим, что простое
Result := True;

// самые простые
if M[P] = 1 then Exit;
if M[P] = 2 then Exit;
if M[P] = 3 then Exit;
if M[P] = 5 then Exit;

// Предположим, что составное
Result := False;
if M[P] mod 2 = 0 then Exit;
if M[P] mod 3 = 0 then Exit;
if M[P] mod 5 = 0 then Exit;

// Будем пробовать делить на все нечётные числа, начиная с 7
Q := Sqrt(M[P]);
V := 7;
while V <= Q do
begin
if M[P] mod V = 0 then Exit; // Делится без остатка - составное
V := V + 2;
end;

// Оказалось простое
Result := True;
end;

begin
Write('Введите N = '); ReadLn(N);
// Заполним массив
for Index := 1 to N do
begin
M[Index] := Index;
Write(M[Index], ' ');
end;
WriteLn();
// Отсеим простые
Index := 1;
while Index <= N do
begin
if Delimost(Index) then
Udalit(Index)
else
Index := Index + 1;
end;
// Выводим результат
for Index := 1 to N do
Write(M[Index], ' ');
WriteLn();
end.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Введите N = 20
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
4 6 8 9 10 12 14 15 16 18 20