Задача с использованием массива

[Zooma]

Есть задача: Найти максимальный элемент массива и минимальный элемент массива. Все нули заменить максимальным элементом, а минимальные заменить максимальными элементами. Застрял тут:

uses crt;
var a:array[1..10] of integer;
min,max,i:integer;
begin
write('Введите число элементов');
Read(n);
for i:=1 to n do begin
Write('a[',i,']=');
Readln(a[i]);
end;
for i:=1 to n do writeln(a[i]);
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;

for i:=1 to n do begin
a[i]:=min;
if a[i]=0 then a[i]:=max;
end;


writeln;
for i:=1 to n do
Writeln(a[i]);

readkey;
end.

[Alex11223]

for i:=1 to n do writeln(a[i]);

Лучше так. И код форматируйте.

for i:=1 to n do begin
   Write('a[',i,']=');
   Readln(a[i]);
   writeln(a[i]);
end;

Может быть задание было таким?

Все нули заменить максимальным элементом, а минимальный заменить на максимальный элемент.

Тогда когда ищите минимальный надо еще его индекс запоминать (в другую переменную)

[Zooma]

Спасибо, Алекс, буду разбираться, а задание я правильно написал.