Помогите с программой в Паскале

[Alexadr34]

Помогите с программой в Паскале

. Напишите программу на языке программирования . Даны действительные числа (а1,а2...an) (все числа различны). Замените в этой последовательности наименьший элемент 0, а все нулевые элементы наибольшим членом последовательности.
заранее спасибо.

 

[AlexZir]

uses crt;
var n,i:integer;
mas: array[1..10000] of real;
min, max:real;
begin
readln(n);
for i:=1 to n do
readln(mas[i]);
clrscr;
min:=mas[0];
max:=mas[0];
for i:=1 to n do begin
write(mas[i]:4:6);
if mas[i]<min then min:=mas[i];
if mas[i]>max then max:=mas[i]; 
end;
writeln;
for i:=1 to n do begin
if mas[i]=0 then mas[i]:=max;
if mas[i]=min then mas[i]:=0;
write(mas[i]:4:6);
end;
writeln;
readln;
end.