Заменить все положительные элементы массива на максимальный элемент массива .Напишите программу в ПАСКАЛЬ.

// PascalABC.NET 3.2, сборка 1341 от 20.11.2016 begin   var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;   var mx:=a.Max;   a:=a.Select(x->x>0?mx:x).ToArray; a.Println end. Пример n= 13 8 24 17 -33 -50 34 -41 6 23 38 -19 24 38 38 38 38 -33 -50 38 -41 38 38 38 -19 38 38

var i,max:integer; a:array [1..10] of integer; begin for i:=1 to 10 do begin readln(a[i]); end; max:=a[1]; write('Исходный массив: '); for i:=1 to 10 do begin write(a[i]); write(' '); end; for i:=1 to 10 do begin if (a[i] >  max ) then max:=a[i]; end; for i:=1 to 10 do begin if (a[i] > 0) then a[i]:=max; end; writeln(' '); write('Полученный массив: '); for i:=1 to 10 do begin write(a[i]); write(' '); end; end.