Не работает прогамма

[Alekzinder]

Помогите доработать программу.
Составить программу, которая отыскивает среди пар элементов одномерного массива М те, разность между элементами которых есть величина наибольшая для данного массива.

Program zad1;
const n=10;
var i,f:byte;
k,max:integer;
arr:array[1..n] of integer;
begin
randomize;
max:=0;
for i:=1 to n do
begin
for f:=1 to n do
if i>f then
k:=abs(arr[i]-arr[f]);
if max<k then
max:=k;
end;
writeln(arr[f],' ',arr[i]);
readln;
end.

и кто может напишите пожалуйста коды к задачкам
1.Слить две упорядоченные последовательности в одну, используя рекурсивный алгоритм.
2. На скрине задание

[type_Oleg]

then  max:=k;

И все ?
Нашли саму максимальную разность, а надо найти элементы, то есть их индексы.
И вообще, я подозреваю, что массив arr заполнен нулями. Он не инициализирован.
Процедура Randomize - она для функции Random, а я ее не вижу.

[Alekzinder]

вот даа! он заполнен нулями, я просто не пойму как с помощью рандомайза заполнить числами. мне хотябы такой вид программы чтобы заработал)

[ZX Spectrum-128]

For i:=1 to n do
For j:=1 to n do
  Arr[i,j]:=random(m); // числа от 0 до m-1

[Alekzinder]

Спасибо большое!