Элементы массива X циклически сдвинуть на k позиций влево

var i,j, N, K : integer;
   FirstElement, tmp : string;
begin
N := StringGrid1.ColCount;
for j:=1 to K mod N do begin
  // циклический сдвиг на 1 элемент влево
  FirstElement := StringGrid1.Cells[0, 0];
  for i:=0 to N-2 do StringGrid1.Cells[i, 0] := StringGrid1.Cells[i+1, 0];
  StringGrid1.Cells[N-1, 0] := FirstElement
end;

var
  Form1: TForm1;
    n,m,i,j,a:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var a: array of array of integer;
begin
randomize;
n:=strtoint(edit1.Text);
m:=strtoint(edit2.Text);
Setlength(a,n,m);
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=m;
for i:=0 to n-1 do
for j:=0 to m-1 do
 begin
  a[i,j]:=-10+random(21);
  StringGrid1.Cells[j,i]:=IntToStr(a[i,j]);
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var K : integer;
   FirstElement, tmp : string;
begin
K:=StrToInt(Edit3.Text);
N := StringGrid1.ColCount;
M:= StringGrid1.ColCount;
for i:=1 to K mod N do
for j:=1  to K mod M do begin
  // циклический сдвиг на 1 элемент влево
  FirstElement := StringGrid1.Cells[0, 0];
 
  for i:=0 to N-2 do StringGrid1.Cells[i, 0] := StringGrid1.Cells[i+1, 0];
  for j:=0 to M-2 do StringGrid1.Cells[0,j ] := StringGrid1.Cells[0,j+1 ];
  StringGrid1.Cells[N-1, M-1] := FirstElement;
end;
     end;
end.

procedure TForm1.Button2Click(Sender: TObject);
var i,j, row, K : integer;
   FirstElement, tmp : string;
begin
 K:=StrToInt(Edit3.Text);
 N := StringGrid1.RowCount;
 M:= StringGrid1.ColCount;
 for row := 0 to N do
 for j:=1 to K mod M do begin
   // циклический сдвиг на 1 элемент влево
   FirstElement := StringGrid1.Cells[0, row];
   for i:=0 to M-2 do StringGrid1.Cells[i, row] := StringGrid1.Cells[i+1, row];
   StringGrid1.Cells[M-1, row] := FirstElement;
 end;
end;