[maxmaslo]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var mas:array [1..4,1..4] of integer;
mas2:array [1..4] of integer;
i,j,buf,min,imin:integer;
begin
for i:=1 to 4 do
    for j:=1 to 4 do
     mas[i,j]:=StrToInt(StringGrid1.Cells[j-1,i-1]);
for i:=1 to 4 do
    mas2[i]:=mas[i,i];
for i:=1 to 4 do
begin
     min:=mas2[i];
     for j:=1 to 4 do
               if (mas2[j]>min) then
                              begin
                                     min:=mas2[j];
                                     imin:=j;
                              end;
       buf:=mas2[i];
       mas2[i]:=mas2[imin];
       mas2[imin]:=buf;
end;
for i:=1 to 4 do
    for j:=1 to 4 do
     begin
      if(i=j)then StringGrid2.Cells[j-1,i-1]:=IntToStr(mas2[i])
      else StringGrid2.Cells[j-1,i-1]:=IntToStr(mas2[i,j]);
    end;
end;
end.

lmikle: пользуемся тегами!!!

ошибка else StringGrid2.Cells[j-1,i-1]:=IntToStr(mas2[i,j]); типа "array type required"
помогите, если сможете)