Зависание программы (Delphi7)

[nWizz]

Задание такое: Дан двумерный массив размером n*m, заполненный случайным образом. Удалить все столбцы, в которых первый элемент больше последнего.

Само решение выглядит так:

c:=m;
while f=false do
begin
f:=true;
for j:=0 to m-1 do
if A[0,j]>A[n-1,j] then
begin
f:=false;
c:=c-1;
for i:=0 to n-1 do
for k:=j to m-1-j do
A[i,k]:=A[i,k+1];
end;
end;

Проблема в том, что при определенных значениях программа зависает, т.е. видимо цикл где-то не завершается. Но не пойму, почему? Проверил уже не раз, все равно не пойму и даже не представляю в чем дело.

Вот полный вариант кода

procedure TForm1.Button3Click(Sender: TObject);
var
A:array of array of integer;
i,j,n,m,c,k:integer;
f:boolean;
begin
n:=StrToInt(Edit1.Text);
m:=StrToInt(Edit2.Text);
SetLength(A,n,m);
for i:=1 to n do
for j:=1 to m do
A[i-1,j-1]:=random(11);

StringGrid2.RowCount:=n+1;
StringGrid2.ColCount:=m+1;
with StringGrid2 do
begin
i:=0;
for j:=1 to rowcount do
Cells[i,j]:=Inttostr(j);
j:=0;
for i:=1 to colcount do
cells[i,j]:=inttostr(i);
end;

with StringGrid2 do
for i:=1 to n do
for j:=1 to m do
Cells[j,i]:=IntToStr(A[i-1,j-1]);

c:=m;
while f=false do
begin
f:=true;
for j:=0 to m-1 do
if A[0,j]>A[n-1,j] then
begin
f:=false;
c:=c-1;
for i:=0 to n-1 do
for k:=j to m-1-j do
A[i,k]:=A[i,k+1];
end;
end;


StringGrid1.RowCount:=n+1;
StringGrid1.ColCount:=c+1;
with StringGrid1 do
begin
i:=0;
for j:=1 to rowcount do
Cells[i,j]:=Inttostr(j);
j:=0;
for i:=1 to colcount do
cells[i,j]:=inttostr(i);
end;

with StringGrid1 do
for i:=1 to n do
for j:=1 to m do
Cells[j,i]:=IntToStr(A[i-1,j-1]);
end;

[ATL]

while f=false do

Уберите этот цикл и всё будет хорошо.

Очевидно как-то так:

procedure TForm1.Button1Click(Sender: TObject);
var
A: array of array of integer;
i,j,n,m,c,k: integer;
begin

n := StrToInt(Edit1.Text);
m := StrToInt(Edit2.Text);
SetLength(A, n, m);

for i := 1 to n do
for j := 1 to m do
A[i-1,j-1] := random(11);

StringGrid2.RowCount := n+1;
StringGrid2.ColCount := m+1;
with StringGrid2 do
begin
i := 0;
for j := 1 to rowcount do
Cells[i,j] := IntToStr(j);
j := 0;
for i:=1 to colcount do
cells[i,j] := IntToStr(i);
end;

with StringGrid2 do
for i :=1 to n do
for j :=1 to m do
Cells[j,i] := IntToStr(A[i-1, j-1]);

c := m;

for j := 0 to m-1 do
if A[0,j] > A[n-1,j] then
begin
  c := c-1;
  for i := 0 to n-1 do
  for k := j to m-1-j do
  A[i,k] := A[i,k+1];
end;

StringGrid1.RowCount := n+1;
StringGrid1.ColCount := c+1;
with StringGrid1 do
begin
  i := 0;
  for j := 1 to rowcount do
  Cells[i,j] := IntToStr(j);
  j := 0;
  for i := 1 to colcount do
  cells[i,j] := IntToStr(i);
end;

with StringGrid1 do
for i := 1 to n do
for j := 1 to m do
  Cells[j,i] := IntToStr(A[i-1, j-1]);
end;