Ребят 
спасайте 
задание по паскалю
В двухмерном массиве заменить элементы меньшие 3 их кубами.Массив заполнить случайными числами в интервале от -3 до 10
вывести на экран исходный и полученный массив в виде таблицы
пожалуйста
помогите:!

const  n=5;  m=6;var  a: array[1..n,1..m]of integer; i,j:integer;begin       for i:=1 to n do           begin   writeln;            for j:=1 to m do                 begin                   a[i,j]:=random(14)-3;                   write(a[i,j]:4);                 end;          end;writeln('Новый массив:');    for i:=1 to n do          begin   writeln;          for j:=1 to m do                begin                 if (a[i,j]<3)and(a[i,j]<>0) then                   if a[i,j]<0 then                        a[i,j]:=-round(exp(ln(-a[i,j])*3))                   else                        a[i,j]:=round(exp(ln(a[i,j])*3));                  write(a[i,j]:4);               end;          end;end.