Формирование их простых чисел здесь нет, пока не вставил, но код уже написал для проверки чисел. А вот упорядочить не получается.
Ваш фак читал, делал и с ним, все равно ерунда получаеться не выводит, как надо.
---
Дан массив Y, состоящий из М целых чисел (0<M<=10; -1000<y[i]<1000).Сформировать массив из элементов, являющихся простыми числами и упорядочить полученный массив по возрастанию методом “пузырька”.
var
y:array of extended;
i,j, m: integer;
Tmp : Double;
begin
writeln('Vvedite kolichestvo celix cisel v promegitke ot 1 do 10');
readln(m);
If (m<0)or(m>10)then
begin
writeln('Vvedite kolichestvo celix cisel v promegitke ot 1 do 10');
readln(m);
end;
SetLength(y, m);
writeln ('Zapolnenie massiva');
writeln ('Vedite chisla v promegytke ot -1000 do 1000');
for i:= 1 to m do
begin
readln(y[i]);
If (y[i]<-1000)or(y[i]>1000)then
begin
writeln('Vi vveli nevernoe chislo!!! Vedite chisla v promegytke ot -1000 do 1000.');
readln(y[i]);
end;
end;
i:=0;
while i<=m-1 do
begin
j:=0;
while j<=m-2-i do
begin
if Y[j]>Y[j+1] then
begin
Tmp := Y[j];
Y[j] := Y[j+1];
Y[j+1] := Tmp;
writeln('Otsortirovannii massiv metodom pyzirka');
for j:=1 to m do
begin
writeln(Y[j]:0:0);
end;
end;
Inc(j);
end;
Inc(i);
end;