Удалить все непростые элементы массива

Решение на Pascal ABC

var i, b, j, n, max, min, c: integer;
e: boolean;
a: array [1..100] of integer;
const n1=50; {значение элемента массива наугад}
begin
n:=10; {количество чисел}
for i:=1 to n do
begin
a[i]:=random (n1);
write (a[i]:4);
if i=1 then
begin
max:= a[i];
min:= a[i];
end;
if a[i] > max then max:=a[i];
if a[i] < min then min:=a[i];
end;
writeln;
writeln ('оставляем только простые элементы массива, непростые элементы удаляем');
min:=min-1;
max:=max-1;
repeat
inc(min);
c:=0;
for i:=2 to trunc(min/2)+1 do
if min mod i = 0 then inc(c);
if c=0 then
for j:=1 to n do
if a[j]=min then write (a[j]:4);
until (min > max);
end.

Здесь задача о нахождении простых чисел, это раз, а два: поддерживает ли этот абв динамические массивы?
Дело в том, что после удаления элементов массив должен стать меньше.
Делаем так.

Для определения, является ли число простым, пишем отдельную функцию:

function simple(n:integer): boolean;
var x: integer;
begin
x:=1;
repeat x:=x+1 until n mod x = 0;
if n=x then simple:=true else simple:=false;
end;
которую вызываем для каждого элемента:

for i:=1 to n do
if simple(a[ i ]) then ./удаляем этот элемент/;

А вот как работать с динамическими массивами, разбирайтесь сами.
Второй вариант - создать второй массив, переписать в него все непростые числа (if NOT simple(a[ i ])), запомнить в отдельной переменной верхнюю границу и печатать до неё.
Третий вариант: после проверки на NOT simple просто выводить по одному на печать.
У вас же написана какая-то чушь.

не обязательно крутить полный цикл для проверки на простоту
достаточно до половинки числа -- дальше всё равно на разделится
или вообще до первого делителя, чтоб зря проц не гонять
и лучше эту проверку вынести в отдельную функцию