массив в Turbo Pascal

[Semych]

помогите пожалуйста решить задачу с массивами в Turbo Pascal

задача:
Вычислить минимальный элемент массива С и его номер.
Массив: C(20)
Условие: xi<0

Заранее большое спасибо))

[profi]

Условие: xi<0 - вот эту строку не сильно понял. Ну вот прога она определяет наименьший элемент в масиве. Может быть вы этой строкой xi<0 имели ввиду это условие if (min<0)....

uses crt;
var
   c:array[1..20] of integer;
   i,min,mini:integer;
begin clrscr; randomize;
for i:=1 to 20 do
    begin
         write('c[',i,']=');
         readln(c[i]);
    end;
for i:=1 to 20 do
    write ('c[',i,']=',c[i],' ');
min:=c[1];
mini:=0;
for i:=1 to 20 do
    if c[i]<min then
    begin
        min:=c[i];
        mini:=i;
    end;
writeln;
writeln('min=',min);
writeln('mini=',mini);
end.

[Semych]

спасибо что повозились с ней, но она ответ не выводит((