Поиск различных элементов массиве

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,imn,imx,k:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
a[1]:=1+random(9);
write(a[1]);
for i:=2 to n do
 begin
  a[i]:=random(10);
  write(a[i]);
 end;
writeln;
imn:=1;
imx:=1;
for i:=1 to n do
 begin
  if a[i]<a[imn] then imn:=i;
  if a[i]>a[imx] then imx:=i
 end;
writeln('Минимальная цифра a[',imn,']=',a[imn]);
writeln('Максимальная цифра a[',imx,']=',a[imx]);
k:=a[imn];
a[imn]:=a[imx];
a[imx]:=k;
writeln('Обмен минимальной и максимальной');
for i:=1 to n do
write(a[i]);
readln
end.

var a:array[1..1000]of Integer;
i,n,min,max,t:integer;
begin
Write('Количество цифр,n=');
Readln(n);
Writeln('Задайте массив цифр:');
for i:=1 to n do
begin
Write(i,'-я цифра=');
Readln(a[i]);
end;
Writeln('Заданное число:');
for i:=1 to n do Write(a[i]);
Writeln;
min:=1;
max:=1;
for i:=2 to n do 
if a[i]>a[max] then max:=i else
if a[i]<a[min] then min:=i;
t:=a[max];
a[max]:=a[min];
a[min]:=t;
Writeln('Полученное число:');
for i:=1 to n do Write(a[i]);
Writeln;
Readln;
end.