Здравствуйте!!! У меня чрезвычайное положение нужно сдать лабораторную по паскалю, но не могу выполнить задание!!!!!

[DemonPASKAL]

Сформировать и вывести на печать массив К(25), элементы которого принадлежат интервалу [-45;45]. Найти наибольший элемент среди отрицательных, поменять местами наибольший и наименьший элементы!
В Паскале!!!!!!

[Базиля]

Сообщение от DemonPASKAL

В Паскале!!!!!!

[DoGFoX]

Program n1;
var a:array[1..25] of integer;
i,b,c,n,bk,ck:integer;
begin
randomize;
for i:=1 to 25 do a[i]:=random(90)+(-45);
for i:=1 to 25 do
write(a[i],' ');
writeln;writeln;
for i:=1 to 25 do begin
                  if a[i]<b then begin b:=a[i];bk:=i;end;
                  if a[i]>c then begin c:=a[i];ck:=i;end;
                  end;
n:=b;
for i:=1 to 25 do begin
                  if (a[i]>n) and (a[i]<0) then n:=a[i];
                  end;

writeln(n,' - max sredi otric');
writeln(c,' - max');
writeln(b,' - min');
writeln;
n:=a[bk];
a[bk]:=a[ck];
a[ck]:=n;

for i:=1 to 25 do write(a[i],' ');

writeln('_______________________');
writeln;
end.