Ошибка в делфи Missing operator or semicolon

[Аlex124rus]

Доброго времени суток!Помогите пожалуйста!Делфи выдает ошибку Missing operator or semicolon, не могу разобраться что не так ниже код:

unit Zadanie1;
interface
Type
  TIntDynArray = array of integer;




procedure GetArrayB(arrA: TIntDynArray; Var arrB: TIntDynArray);
procedure GetArrayA(N: integer; Var arr: TIntDynArray);

implementation

procedure GetArrayA(N: integer; Var arr: TIntDynArray);
var i: integer;
begin
SetLength(arr,N+1);
Randomize;
for i := 1 to N do
begin
arr[i]:=50 - Random(101); // Çàäàåì 
ñëó÷àéíîå ÷èñëî â
 èíòåðâàëå [-50;+50]
end;
end;

procedure GetArrayB(arrA: TIntDynArray; Var arrB: TIntDynArray);
var i,j,f,a,n: integer;
begin
SetLength(arrB,Length(arrA));
for i:=1 to n do
for j:=1 to n do 
begin
!!if i+j=n+1 then a:=a+f(i,j)
!!!for j:=1 to n do a:=f(i,j)
end;
end;

end.

[DikeeeY]

Сообщение от Аlex124rus

Доброго времени суток!Помогите пожалуйста!Делфи выдает ошибку Missing operator or semicolon, не могу разобраться что не так ниже код:

unit Zadanie1;
interface
Type
TIntDynArray = array of integer;




procedure GetArrayB(arrA: TIntDynArray; Var arrB: TIntDynArray);
procedure GetArrayA(N: integer; Var arr: TIntDynArray);

implementation

procedure GetArrayA(N: integer; Var arr: TIntDynArray);
var i: integer;
begin
SetLength(arr,N+1);
Randomize;
for i := 1 to N do
begin
arr[i]:=50 - Random(101); // Çàäàåì ñëó÷àéíîå ÷èñëî â èíòåðâàëå [-50;+50]
end;
end;

procedure GetArrayB(arrA: TIntDynArray; Var arrB: TIntDynArray);
var i,j,f,a,n: integer;
begin
SetLength(arrB,Length(arrA));
for i:=1 to n do
for j:=1 to n do
begin
!!if i+j=n+1 then a:=a+f(i,j)
!!!for j:=1 to n do a:=f(i,j)
end;
end;

end.

смотри где то скорее всего точку с запятой пропустил

[Stilet]

!!if i+j=n+1 then a:=a+f(i,j)
!!!for j:=1 to n do a:=f(i,j)

Восклицания , это ты типа кричишь на компилятор противный?
А ремнем по винту не пробовал? или на гречку память ставить. Говорят помогает.