[Fatal27]

Опять сам разобрался Все очень просто
Если вдруг кому то еще надо :

Код:

begin
edit5.clear;
edit7.clear;
Randomize;
begin
n:=StrToInt(edit8.text);
SetLength(ar,n+1);
for i:=1 to n do
  begin
   ar[i]:=-40+random(71);
   edit5.text:=edit5.text+'  '+IntToStr(ar[i]);
  end;
  end;
x:=ar[1];
ar[1]:=ar[n];
ar[n]:=x;

x:=ar[2];
ar[2]:=ar[n-1];
ar[n-1]:=x;

x:=ar[3];
ar[3]:=ar[n-2];
ar[n-2]:=x;

for i:=1 to n do
edit7.Text:=edit7.text+'  '+inttostr(ar[i]);
end;

Админ: Пользуемся тегами для оформления кода!