Сформирировать целочисленный миссив А(75) ,элементами которого являются случайные числа

program Lab;
uses wincrt;
const nmax=25;
var x:array[1..nmax] of real;
    n,i,j,imx,jmx:byte;
    mx:real;
begin
clrscr;
randomize;
repeat
write('Количество точек от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
for i:=1 to n do
 begin
  x[i]:=random(26)-5;
 end;
writeln('Координаты:');
write('X');
for i:=1 to n do
write(x[i]:5:1);
writeln;
writeln;
mx:=x[1]-x[2];
imx:=1;
jmx:=2;
for i:=1 to n-1 do
for j:=i+1 to n do
if (x[i]-x[j])>mx then
 begin
  mx:=x[i]-x[j];
  imx:=i;
  jmx:=j;
 end;
writeln('два элемента: ',imx,' и ',jmx,' = ',mx:5:1);
readln
end.