найти ошибку в массиве

[lilia2121]

Решила задачу, а программа не идёт.. помогите пожалуйста найти ошибку

program uu;
type mas=array[1..10] of integer;
var A: mas;
imin, min, i, imax, max: integer;
begin
clrscr;
randomize;
min:=A[1]; imin:=1;
for:=2 to 10 do random(10);
if A[i]<min then
begin min:=A[i]; imin:=i;
end;
randomize;
max:=A[1];
imax:=1;
for i:=2 to10 do random(10);
if A[i]>max then;
begin 
max:=A[i];
imin:=i;
end;
if min=10 else 
writeln('i=';imin);
writeln('min=',min);
if max=10 else
writeln('i=';imax);
writeln('max=';max);
readkey;
end.

условие задачи: Дан массив А(10) целых чисел. Найти минимальный и максимальный элементы этого массива. Если они не равны 10
вывести на экран значения этих элементов и их порядковый номер в массиве.

[[CODER]]

Инициализировать A[i] нужно примерно так

randomize;
for i:=2 to 10 do 
  begin 
      A[i]:=random(10)+1;
  end;

[ROMA2PVT]

Да там вообще бред написан.

program mas;
uses crt;
const n=10;
var
A:array [1..n] of integer;
i,j,max,min,imn,imx:integer;
BEGIN
clrscr;
randomize;
imn:=1;
imx:=1;
for i:=1 to n do
begin
a[i]:=random (12);
write (a[i], ' ');
end;
max:=a[1];
for i:=1 to n do
if a[i]>max then
begin
max:=a[i];
 imx:=i;
 end;
min:=a[1];
for i:=1 to n do
if a[i]<min then
begin
min:=a[i];
imn:=i;
end;
writeln;
iF (max<>10) and (min<>10) then
write('MAX элемент массива и его индекс:':60, max,' ',imx
,'MIN элемент массива и его индекс: ':77, min,' ',imn)
else
writeln('MAX И MIN РАВНЫ 10!!!!!':55);
end.

[lilia2121]

но мне же вроде не нужно выводить что минимум и максимум равны 10

[ROMA2PVT]

Если они не равны 10
вывести на экран значения этих элементов и их порядковый номер в массиве.

Читай внимательней что написано.Попробуй запустить прогу и посмотри что будет когда максимум будет равен 10.ПРОГА ВЫВЕДЕТ СООБЩЕНИЕ ЧТО МАКСИМУМ И МИН РАВНЫ 10!!!!!

iF (max<>10) then
writeln('MAX элемент массива и его индекс:', max,' ',imx)
else
writeln('MAX РАВЕН 10!!!!!');
iF (min<>10) then
writeln('MIN элемент массива и его индекс: ', min,' ',imn)
else
writeln('MIN РАВЕН 10!!!!!');
end.

Либо вот так если надо сделай проверку.