Задача на массив Pascal

[shozanah]

Нахождение экстремальных элементов в однородных массивах.
Составить программу нахождения экстремального элемента или его порядкового номера при заданном одномерном массиве А из n элементов (или массивах А и С по n элементов в каждом).

Определить номер наименьшего по абсолютной величине элемента массива А.

program z143;
var
i,n,min,j:integer;
A:array [1..100] of integer;
begin
writeln ('vvedite kolichestvo elementov');
readln (n);
for i:=1 to n do
begin
writeln ('vvedite element pod nomerom ',i,'');
readln (A[i]);
end;
min:=A[1];
j:=1;
for i:=1 to n do
if A[i]<min then
begin
min:=A[i];
j:=i;
end;
writeln ('nomer elementa masiva');
readln;
end.

Работает но не выводит значение. Помогите отладить. Заранее спасибо!

[Roof]

оформляй код специальным тэгом. Кнопочка #.
Читай про функцию abs в pascal. В присваивании значения переменной min и в условии, где сравниваешь с min ее применяй.
Вывод на экран:

writeln ('indeks min elementa masiva ', j);
writeln ('min elementmasiva ', A[j]);

[Stilet]

writeln ('nomer elementa masiva',min);

[Roof]

min - это сам элемент. j - индекс.

[shozanah]

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

writeln ('nomer elementa masiva',min);

да вот про это я и забыл)) спасибо!)

[Stilet]

А ник с матерком не забыл придумать...
Вот школота...