Вмассиве из 20 случайных цифр из диапозона -10+10заменить все отрицательные числа на максимальные все положительные на минимальные

//pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) const n = 20; var   a: array[1..20] of integer;   i, min, max: integer; begin   min : = maxint; max : = -maxint;   writeln('исходный массив : ');   for i : = 1 to n do   begin       a[i] : = random(-10, 10); write(a[i]: 4);       if a[i] < min then min : = a[i];       if a[i] > max then max : = a[i];   end;   writeln;   writeln('min = ',min,'  max = ',max);   writeln('массив после обработки: ');   for i : = 1 to n do   begin       if a[i] < 0 then a[i] : = max       else a[i] : = min;       write(a[i]: 4);   end; end. тестовое решение: исходный массив :     7  -9    0  -3  -2    7  -1    3  -4    2    0    3  -6    5  -1  -9    7  -7    6    6 min = -9  max = 7 массив после обработки:   -9    7  -9    7    7  -9    7  -9    7  -9  -9  -9    7  -9    7    7  -9    7  -9  -9

Program keke; const n=5; var a: array[1..n] of integer; i: integer; begin for i: = 1 to n do readln(a[i]); for i: = 1 to n do a[i]: =a[i]+3; for i: = 1 to n do writeln(a[i]); readln; end.