как мне быть?

[Рафинур]

Доброго вечера дороги друзья! Я хотел бы попросить Вас, умных и талантливых программистов помочь мне в одном вопросе. Я никак не могу решить несколько задач, а именно 2,4 и 5ое задания. Если есть добрые люди, подскажите как сделать, т.е код программы.

[Рафинур]

procedure TForm1.Button8Click(Sender: TObject);
var n,i,j,f,k, step,max:integer;
b: t_massi;
temp:t_row;
begin
f:=1;
n:=StrToInt(edit7.text);
if not(n=0) then
begin
for i:=1 to n do
begin
f:=f*n ;
n:=n-1;
end;
for j:=1 to 4 do
for i:=1 to 4 do
b[j][i]:=strtoint(stringgrid1.cells[i-1,j-1]);
max:=summ(b);
step:=1;
for k:=1 to f do
begin
if step = 1 then begin
temp:=b[2];
b[2]:=b[1];
b[1]:=temp;
end;
if step = 2 then begin
temp:=b[3];
b[3]:=b[2];
b[2]:=temp;
end;
if step = 3 then begin
temp:=b[4];
b[4]:=b[3];
b[3]:=temp;
end;
if step = 4 then begin
temp:=b[1];
b[1]:=b[4];
b[4]:=temp;
step:=0;
end;
if max<summ(b) then
begin
max:=summ(b);
for j:=1 to 4 do
for i:=1 to 4 do
stringgrid1.cells[i-1,j-1]:=IntTOStr(b[j][i]);
end;
step:=step+1;
end;
end;
код для 4го задания, только что то он не робит, подскажите косяк а?