растолковка кода

[TIM123]

Помогите растолковать код, что он означает в подробном истолковании?

for i:=1 to StringGrid1.RowCount-1 do
Buf[i]:=A[i, 1];

for j:=2 to StringGrid1.ColCount-1 do
begin
for i:=1 to StringGrid1.RowCount-1 do
t[i]:=A[i, j];

For i:=1 to StringGrid1.RowCount-1 do
A[i, j]:=buf[i];

For i:=1 to StringGrid1.RowCount-1 do
buf[i]:=t[i];

end;

for i:=1 to StringGrid1.RowCount-1 do
A[i, 1]:=buf[i]