Дана последовательность x1,x2,...,x20. Требуется расположить отрицательные элементы последовательности в

[Irisk]

ЗАДАЧА ПО ПАСКАЛЮ
Дана последовательность x1,x2,...,x20. Требуется
расположить отрицательные элементы последовательности в
порядке убывания.

выполнять модифициpованным методом
пpостого выбоpа
Помогите пожалуйста,завтра на зачете нужно будет

uses crt;
var a:array[1..5] of integer;
     i,j,buf,imin:integer;
begin
clrscr;
for i:=1 to 5 do begin
write('vv el');
read(a[i]);end;
for i:=1 to 5-1 do begin
imin:=i;
for j:=i+1 to 5 do
if a[j]<a[imin] then imin:=j;
buf:=a[i];
a[i]:=a[imin];
a[imin]:=buf; 
end;
for i:=1 to 5 do
write(a[i],' ');
readln;
end.

когда делаю для отрицательных элементов,программа не работает. ???

[isla]

в объявлении переменных nteger; а зачем imin в цикл запихнули?)

[Irisk]

а как надо?