Проверьте задачку

[{StaN}]

в 8й строке ошибка, что не так?

Uses crt;
const n=5; m=6;
Var A:array [1..n, 1..m] of integer;
i,j,f:integer;
Begin
randomize;
for i:=1 to n do
for j:=1 to m do A[i,j]:=100-random<200>+1;
clscr;
for i:=1 to n do
begin
for j:=1 to n do write<A[i,j]:4>;
writeln;
end;
for i:=1 to n do
for j:=1 to m do
begin
if A[i,j]>0 then
Begin
f:=A[i,j]-50;
if <<f>=>0> and <f<=9>> then
begin
writeln <'iz polojitelnih:'>;
writeln <'stroka:',i,',stolbec:',znachenie:',A[i]>;
writeln;
end;
end
else
Begin
f:=A[i,j]+50;
if f<=0 and f>=-9> then
begin
Writeln <'iz  otricatelnih:'>;
write <'stroka:',i,',stolbec:',j,'znachenie:',A[i,j]>;
writeln;
end;
end
end;
writeln;
readln;
end.

[alexBlack]

Что у Вас со скобками ?

for j:=1 to m do A[i,j]:=100-random(200)+1;

В следующий раз показывайте текст ошибки

[programmist8]

Правда,я ещё только шести классник.Может я ошибаюсь,но после зарезервированного слова writeln ,кажется пишутся вот такие скобки
('------').

[Stilet]

Может я ошибаюсь

Частично неправ. за разьяснениями в книгу.