"Массив из 7 случайных чисел на отрезке от 10 до 30.Найти

var
  i : integer;                              // объявляем переменную целочисленного типа.
  arr: array [1..7] of integer;      // объявляем массив.
  s, s1 : string;                         // объявляем переменную строкового типа.
begin
  for i := 1 to 7 do                    // начало цикла.
    begin
       arr[i] := random(10, 30);        // заполняем элемент массива числом из спектра 10; 30.
       s := s + inttostr (arr[i])+ ;   // записываем массив в одну строку.
       if (arr[i] mod 5 = 0) then s1 := s1 + i + ; // считаем количество чисел кратных 5.
    end;
 writeln (Начальный массив: , s);                          // вывод исходного массива на экран.
 writeln(Номера частей кратных 5: , s1);  // вывод ответа на экран.
end.