помогите с вопросами - горю! Массывы!!!

[SKS]

1.Определить, какой минимальный объем оперативной памяти требуется для хранения каждой из объявленных переменных. Указать, какую из переменных не удастся разместить в памяти из за превышение допустимого объема для статистических переменных(возникнет ошибка structure too large ).
варианты ответа:
а) var a: array[1000..9999] of longint
б) var b: array[longint] of integer
в) var c: array[10000..10009] of double
г) type d = 202..1001
var d1: array[d] of string[99]
д) var e: array[10..99, 0..9] of longint

2.Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program ex_4;
type linmass = array[1..120] of integer;
var i, n: byte; k: integer; a: linmass;
begin
randomize;
write('сколько элементов в массиве?'); readln(n);
write('введите заданное число k: '); readln(k);
for i := 1 to n do
begin a[i] := -100 + random(201); write(a[i] : 6) end;
writeln;
for i := n downto 1 do
begin a[2*i] := k; a[2*i-1] := a[i] end;
writeln('ответ:'); for i := 1 to 2 * n do write(a[i]:6);
writeln
end.

3.Решить задачу: в линейном массиве есть одинаковые элементы. Найти произведение индексов наибольшего элемента массива.

4.Решить задачу: заполнить квадратную матрицу порядка N по следующему правилу: на главной диагонали и выше нее - последовательные натуральные числа, начиная с 1, остальные элементы равны 0. заполнение начинается с верхнего левого угла.

5. Решить задачу: в данном прямоугольном массиве любым способом отсортировать в порядке возрастания элементы каждого из столбцов.

6. Точно и однозначно сформулировать условие задачи, решение которой приведено ниже.
program n_4;
var s: string; i, n: byte;
begin
write('введите строку: '); readln(s);
n := length(s);
for i := 1 to n do insert(s[i], s, length(s) - i + 2);
writeln('ответ: ', s)
end.

7. Решить задачу: рассматривая символы строки тройками, поменять местами в каждой группе первый и третий символы.