составить алгоритм для нахождения суммы всех чисел на промежутке от a до b. a и b вводить клавиатурой

максимальное значение заменить минимальным а минимальное максимальным...

выдает ошибку там где random(30);
проверьте пожалуйста...

Program A1;
var a:array[1..30] of integer;
amax,amin,i,k1,n,s:integer;
begin
writeln('введите n элементов массива');
readln (n);
for i:=1 to n do
random(30);
writeln('введённый массив имеет вид');
write (a[i], ' ');
writeln;
amax:=a[1]; k1:=1;
for i:=2 to n do
if a[i]>amax then
amax:=a[i];
amin:=a[1];
for i:=2 to n do
if a[i]<amin then
amin:=a[i];
writeln('полученный массив имеет вид');
amax:=amin;
amin:=amax;
for i:=1 to n do
writeln(a[i],' ');
end.

3. Среди двухзначных чисел найдите те числа, которые кратны 3 и 4. 4. Среди трехзначных чисел найдите те, у которых все цифры равны. 5. Найдите среди трехзначных чисел симметричные числа. 6. Найдите среди четырехзначных чисел симметричные числа. 7. Найдите все трехзначные числа такие, что сумма цифр равна А, а само число делится на В. А и В вводятся с клавиатуры. 8. Найдите все трехзначные числа такие, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, при увеличении на 4 делятся на 5. 9. Найдите количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается на В, А и В вводятся с клавиатуры. 10. Найдите все трехзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 27. 11.Найдите все трехзначные числа, которые при делении на 2 дают остаток 1, при делении на 3-остаток 2, при делении на 4-остаток 3, само число делится на5. 12. Найдите все четырехзначные числа, в которых есть две одинаковые цифры. 13. Найдите сумму всех чисел из промежутка от А до В, кратных 13 и 5, А и В вводятся с клавиатуры. 14. Найдите все симметричные четырехзначные числа. 15.Найдите все трехзначные числа, которые состоят из различных цифр, а их сумма равна А.