Массив из n чисел

[Ximer]

Помогите доработать программу до конца.

uses crt;
var a:array[1..100] of integer;
n,i,imax,imin,x:integer;
max,min:integer;
Begin
max:=a[1];min:=a[1];
imax:=1;imin:=1;
i:=1;
while a[i]<>0 do
if a[i]>max then
begin
max:=a[i];
imax:=i;
end
else if a[i]>max then
begin
max:=a[i];
imax:=i;
end;
x:=a[imax];
a[imax]:=a[imin];
a[imin]:=x;
for i:=1 to n do
write(a[i],' ');
readln;
end.

Сначала на экране должен появиться исходный массив, потом макс и мин и их номера, потом массив с переставленными элементами.

[Stilet]

А задание какое?

[Ximer]

Дан одномерный массив из n чисел. Найти и поменять местами максимальный и минимальный элементы массива до 0.

[EvKont]

var
mas : array of integer;
min , max : integer;
mini, maxi : integer;
num , per : integer;
begin
write ('kol-vo '); readln(num);

SetLength (mas, num);

for num := 0 to num - 1 do
readln(mas[num]);

writeln('massiv');
for num := 0 to num - 1 do
write(mas[num] : 3);

writeln;
min := mas[0]; max := mas[0];
mini := 0; maxi := 0;

for num := 0 to num - 1 do
begin
if min > mas[num] then
begin
min := mas[num];
mini := num;
end;

if max < mas[num] then
begin
max := mas[num];
maxi := num;
end;
end;

writeln('min:= ', min, ' index ', mini);
writeln('max:= ', max, ' index ', maxi);

per := mas[mini];
mas[mini] := mas[maxi];
mas[maxi] := per;

writeln('massiv');
for num := 0 to num - 1 do
write(mas[num] : 3);

readln;
end.

[puporev]

SetLength (mas, num);

хоть название раздела форума смотри.

[Ximer]

EvKont не работает.

[Ximer]

Ребят помогите пожалуйста!