Составить 2 программы одномерных массивов (Информатика 9 класс)

Задача 1 - Заполнить одномерн. массив с клавиатуры и найти его минимальное значение
Задача 2 - Заполнить одномерн. массив генератор случайных чисел и найти сумму элементов кратных 7

//Pascal ABC.NET v3.0 сборка 1111//1Var ar:array[1..5] of integer; min,i:integer;begin min:=2147483647; for i:=1 to 5 do  begin   readln(ar[i]);   if ar[i]<min then min:=ar[i];  end; write('Min=',min);end.Пример ввода:6-6345Пример вывода:Min=-6//2Var ar:array[1..20] of integer; i,s:integer;begin; randomize; s:=0; writeln('Array:');  for i:=1 to 20 do   begin;    ar[i]:=random(101);    write(ar[i]:4);    if ar[i] mod 7=0 then s:=s+ar[i];   end; writeln; write('Sum=',s);end.Пример работы программы:Array:  13  23  70  67   0  82  16  66  48  54  46  99 100  75  48  33   1  88   9  73Sum=70