Не работает оператор сравнения в Delphi

[iceman_1988]

Надо найти минимальные элементы строк 2-мерного массива, но у меня не работает оператор сравнения ">", точнее он врет - выполняет "else" хотя должен выполнять "then".
Не работает условие сравнения 2-х чисел, пробовал менять тип от real на integer, попробовал местами поменять числа (менять знак сравнения с > на <). Что интересно если условие будет со знаками ">=" и "<=" или "<>", тогда работает.

Часть проблемной области кода:

 min:=strtoint(mas[1,1]);
    for i:=1 to k do
     begin
      for j:=1 to kk do
     begin
      showmessage('Ñðàâíèâàåì min='+inttostr(min)+' è ýëåìåíò ['+inttostr(i)+';'+inttostr(j)+']='+mas[i,j]);
       l:=strtoint(mas[i,j]);
      if l<>min then
        begin
        min:=l;
        showmessage('min ïðèñâîåíî çíà÷åíèå: '+mas[i,j]);
        end;
      end;
      showmessage('ìèíèìàëüíûé ýë-ò '+inttostr(i)+' ñòðîêè:'+inttostr(min));
      end;

Вот код программы полностью:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Label4: TLabel;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   y: real;
   a,b: integer;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i, j: integer;
begin
b:=strtoint(Edit1.Text); //ñòîëáöû
a:=strtoint(Edit2.Text); //ñòðîêè
StringGrid1.ColCount:=b+1; // ìåíÿåì ðàçìåð òàáë.
StringGrid1.RowCount:=a+1;
StringGrid1.Visible:=true;
 
  with StringGRid1 do
    for i:=1 to RowCount-1 do
    for j:=1 to ColCount-1 do
    begin
      Cells[0, i]:='A'+inttostr(i);
      Cells[j, 0]:='B'+inttostr(j)
    end;
    y:=0.5;
    label4.Visible:= true;
    label4.Caption:= 'Ñòåïåíü äîâåðèÿ, y='+floattostr(y);
    ShowMessage('Çïîëíÿéòå òàáëèöó!');
    Button1.Visible:=false;
    Button2.Visible:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i,j,z,k,kk,l: integer;
min: integer;
var mas: array of array of string;  //
var minelements: array of string;  //îäíîìåðíûé ìàññèâ äëÿ ìèíèìàëüíûõ ýëåìåíòîâ
begin
with StringGRid1 do
    for i:=1 to RowCount-1 do
    for j:=1 to ColCount-1 do
      if not TryStrToInt(Cells[j, i],z) then
      Showmessage('Ýëåìåíò: [A'+inttostr(i)+'; B'+inttostr(j)+'] íå ÿâëÿåòñÿ ÷èñëîì!!!');
      SetLength(mas,10,10); //âûäåëÿåì ïàìÿòü äëÿ äèíàìè÷åñêîãî äâóìåðíîãî ìàññèâà
      SetLength(minelements, 10); //âûäåëÿåì ïàìÿòü äëÿ äèíàìè÷åñêîãî îäíîìåðíîãî ìàññèâà
      with StringGRid1 do
    for i:=1 to RowCount-1 do
    for j:=1 to ColCount-1 do
    begin
    mas[i,j]:= Cells[j, i]; //ñîçäàåì ìàññèâ èç ýë-òîâ òàáëèöû
   // showmessage('ýë-ò ['+inttostr(i)+';'+inttostr(j)+']: '+floattostr(mas[i,j]));
    end;
   k:=a;
    kk:=b;
    l:=1;
    y:=0.5;
   
    min:=strtoint(mas[1,1]);
    for i:=1 to k do
     begin
      for j:=1 to kk do
     begin
      showmessage('Ñðàâíèâàåì min='+inttostr(min)+' è ýëåìåíò ['+inttostr(i)+';'+inttostr(j)+']='+mas[i,j]);
       l:=strtoint(mas[i,j]);
      if l<>min then
        begin
        min:=l;
        showmessage('min ïðèñâîåíî çíà÷åíèå: '+mas[i,j]);
        end;
      end;
      showmessage('ìèíèìàëüíûé ýë-ò '+inttostr(i)+' ñòðîêè:'+inttostr(min));
      end;

end;

procedure TForm1.Button3Click(Sender: TObject);   //÷èñòèì òàáëèöó
var
i, j: integer;
begin
with StringGRid1 do
    for i:=1 to RowCount-1 do   //Çàãîëîâêè ñòðîê íå òðîãàåì
    for j:=1 to ColCount-1 do   //Çàãîëîâêè ñòîëáöîâ íå òðîãàåì
      Cells[j, i]:='';        //Óäàëÿåì ñîäåðæèìîå ÿ÷ååê
end;

end.

[newerow1989]

Для поиска минимального элемента используется

if l<min then

Если не получается, то надо пройтись поэтапно (клавиша F7 или F8)

[iceman_1988]

Сообщение от newerow1989

Для поиска минимального элемента используется

if l<min then

Если не получается, то надо пройтись поэтапно (клавиша F7 или F8)

Я с помощью сообщений протестировал, он именно игнорирует сравнение (говорит что он не истина). Попробовал поставить "else", он его выполняет вместо того, чтобы выполнить then.
А знак я поменял для эксперимента и оставил так, обратно забыл.

[newerow1989]

Возможно

k:=a;
kk:=b;

эти переменные равны нулю

[Sibedir]

Сообщение от iceman_1988

Я... он именно игнорирует сравнение ... Попробовал поставить "else", он его выполняет вместо того, чтобы выполнить then,

Ну раз он else выполняет, значит не игнорирует, значит l<>min действительно - ложь, значит l = min. Думаю я.

[iceman_1988]

Все разобрался, всем спасибо.
Корень зла в неправильном расположении оператора присвоения :-)

Вот конечный итог:

begin
     min:=strtoint(mas[i,1]);
      for j:=1 to kk do
     begin
      showmessage('Ñðàâíèâàåì min='+inttostr(min)+' è ýëåìåíò ['+inttostr(i)+';'+inttostr(j)+']='+mas[i,j]);
       l:=strtoint(mas[i,j]);

      if l<min then
        begin
        min:=l;
        showmessage('min ïðèñâîåíî çíà÷åíèå: '+mas[i,j]);
        end;
      end;
      showmessage('ìèíèìàëüíûé ýë-ò '+inttostr(i)+' ñòðîêè:'+inttostr(min));
      end;

Всем спасибо!!!

[newerow1989]

Пожалуйста!