дан массив X(N).найти меньший элемент если он отрицательный, заменить все элементы

1. Современная версия программы

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
  var n:=ReadInteger('n=');
  var x:=ArrRandom(n,-5,20); x.Println;
  if x.Minlt;0 then x:=x.Select(e-gt;абс(e)).ToArray;
  x.Println
end.

Тестовое решение
n= 15
14 18 4 17 9 6 13 13 12 -1 13 5 11 -2 14
14 18 4 17 9 6 13 13 12 1 13 5 11 2 14

2. Школьная версия программки

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
const
  nn=50;
var
  x:array[1..nn] of integer;
  i,m,n:integer;
begin
  Write('n= '); Read(n);
  Randomize;
  x[1]:=Random(26)-5; m:=x[1];
  Write(x[1],' ');
  for i:=2 to n do begin
    x[i]:=Random(26)-5;
    if x[i]lt;m then m:=x[i];
    Write(x[i],' ')
    end;
  Writeln;
  if mlt;0 then begin
    for i:=1 to n do begin
      x[i]:=abs(x[i]);
      Write(x[i],' ')
      end;
    Writeln
    end
end.

Тестовое решение
n= 15
9 3 14 4 9 2 1 6 9 19 20 8 14 -3 9
9 3 14 4 9 2 1 6 9 19 20 8 14 3 9

Подтверждает достаточно знаменитое мнение о том, что в школьной информатике почти все издавна пора поменять...
Для чего учить писать длинно и трудно?