Помогите пожалуйста написать программу во фри паскале

[Kiryan11]

Задание:написать программу,выполняющую поиск двух элементов заданного массива,таких,что их разность по модулю максимальна

[digitalis]

Дык начинают помогать, когда запостишь одно и тоже раза три-четыре

[Desc]

И по трем-четырем разделам форума

[newerow1989]

var i,j,i1,i2:integer;
    p:array[1..10] of integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      p[i]:=Random(21);
      Write(p[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   i1:=1;
   i2:=2;
   For i:=1 to 9 do
      For j:=i+1 to 10 do
         If Abs(p[i]-p[j])>Abs(p[i1]-p[i2]) then
         begin
            i1:=i;
            i2:=j;
         end;
   Writeln('|p[',i1,'] - p[',i2,']| = ',Abs(p[i1]-p[i2]));
   Readln;
end.