Мне нужно что бы змейка заполнилась случайными числами от -2 до 2 при помощи рандома. Не понимаю что не так написано
program matrix;
uses crt;
const n=8;
var a:array[1..n,1..n] of real;
sum,max,min:real;
i,j:integer;
Begin
clrscr;
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=-2+random(4)+random;
if i mod 2=1 then a[i,j]:=(i-1)*n+j
else a[i,j]:=i*n-j+1;
write(a[i,j]:7:2);
end;
writeln;
end;
end.