k1, k2, n1, n2: Variable <Name> might not have been initialized
procedure TForm1.Button1Click(Sender: TObject); var a:array[1..2,1..4] of char; i,j,k1,k2,n1,n2:integer; max,min:char; begin for i:= 1 to 2 do for j:= 1 to 4 do a[i,j]:=stringgrid1.cells[i-1,j-1][1]; max:=a[1,1]; for i:= 1 to 2 do for j:= 1 to 4 do if a[i,j]>max then begin max:=a[i,j]; k1:=i; k2:=j end; min:=a[1,1]; for i:=1 to 2 do for j:=1 to 4 do if a[i,j]<min then begin min:=a[i,j]; n1:=i; n2:=j end; a[k1,k2]:=min; a[n1,n2]:=max; for i:= 1 to 2 do for j:= 1 to 4 do stringgrid1.Cells[i-1,j-1]:=a[i,j]; end; end; end;