Задан вещественный массив размера N, заменить все положительные элементы массива - Pascal ABC

Program zad_1;
uses crt;
const
n=10;
var
i, max:integer;
A:array [1..10] of real;
Begin
clrscr;
Writeln('Введите данные целочисленного массива ');
for i:=1 to n do
begin
write(i,' элемент массива ');
readln(A[i]);
end;
max:=a[1];
for i:=2 to n do
if a[i]<=max then max:=a[i]; 
for i:=1 to n do
if a[i]>0 then a[i]:=max;
writeln('Массив после замены положительных элементов значением максимального равен');
for i:=1 to n do 
writeln(i,' элемент ', A[i]);
readln;
end.