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

1. Современная версия программы// PascalABC.NET 3.1, сборка 1179 от 29.02.2016begin  var n:=ReadInteger('n=');  var x:=ArrRandom(n,-5,20); x.Println;  if x.Min<0 then x:=x.Select(e->abs(e)).ToArray;  x.Printlnend.Тестовое решениеn= 1514 18 4 17 9 6 13 13 12 -1 13 5 11 -2 1414 18 4 17 9 6 13 13 12 1 13 5 11 2 142. Школьная версия программы// PascalABC.NET 3.1, сборка 1179 от 29.02.2016const  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]<m then m:=x[i];    Write(x[i],' ')    end;  Writeln;  if m<0 then begin    for i:=1 to n do begin      x[i]:=abs(x[i]);      Write(x[i],' ')      end;    Writeln    endend.Тестовое решениеn= 159 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 Подтверждает довольно популярное мнение о том, что в школьной информатике многое давно пора менять...Зачем учить писать длинно и сложно?