Составьте программку, которая сформировывает массив из 7 случайных целых чисел из

var
   i : integer;                            // объявляем переменные целочисленного типа.
   arr : array [1..7] of integer;   // объявляем массив.
   s1, s2 : string;                     //  объявляем переменные строкового типа.
Begin
   for i := 1 to 7 do                 // начало цикла.
     begin
        arr[i] := random(-20, 20); // заполняем массив случайным числом из спектра -20; 20.
        s1 := s1 + + inttostr (arr[i]); // записываем в строчку начальный массив.
        if (arr[i] lt; 0) then arr[i] := abs(arr[i]); // сменяем отриц-й. эл-т массива его модулем.
        s2 := s2 + + inttostr (arr[i]); // записываем в строку преобразованный массив.
     end;
   writeln (Начальный массив: , s1);   // вывод строчки на экран.
   writeln (Перевоплощенный массив: , s2);   // вывод строки на экран.
End.