Заполнить массив из 25 элементов случайными числами в промежутке (20, 100)

var
   i, n: integer;                               // объявляем переменные целочисленного типа.
   arr: array [1..25] of integer;        // объявляем массив.
   s : string;                                  // объявляем переменную строкового типа.
begin
   for i := 1 to 25 do                     // начало цикла.
      begin
        arr[i] := random(20, 100); // наполняем элементы массива числами из спектра 20; 100.
        s := s + inttostr (arr[i])+ ; // записываем массив в строчку.
        if (arr[i] mod 3 = 0) then n := n + arr[i];  // считаем сумму частей, которые делятся на 3.
      end;
   writeln (Массив: , s);  // вывод массива на экран.
   writeln(Сумма частей массива, которые делятся на 3 одинакова: , n); // вывод строчки на экран.
end.