Составьте программу,которая формирует массив из 15 случайных целых цифр от -20 до 20 и меняет местами значения первого и последнего элементов массива.На экран выводятся исходные и преобразованные значения.Надо очень СРОЧНО!!!!!...

var m:array[1..15] of real;  i:integer;  n:real;  begin  randomize;  for i:=1 to 15 do  begin  m:=random(20)-20;  if( m<0) then  begin  m:=sqr(m);  end;

program xxx;     var i : integer;          a : array[1..15] of real;           n : real;  begin    randomize;    for i:=1 to 15 do      a[i]:=random(20)-20;     writeln('исходный массив А:');    for i:=1 to 15 do       write(a[i]);    n:=a[1];    a[1]:=a[15];    a[15]:=n;    writeln('полученный массив А:');    for i:=1 to 15 do       write(a[i]);    readln end.