Поиск максимального элемента массива

[morskoy brat]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Spin, Grids, ComCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
StringGrid1: TStringGrid;
SpinEdit1: TSpinEdit;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,j:Integer;
begin
StringGrid1.ColCount:=SpinEdit1.Val ue;
Randomize;
for i := 0 to StringGrid1.ColCount - 1 do
StringGrid1.Cells[i,0]:=inttostr(Random(101)-50);
end;

procedure TForm1.Button2Click(Sender: TObject);
var S,K:Real;
N,i:Integer;
begin
S:=0;N:=StringGrid1.ColCount;
for i := 0 to N-1 do
if (strtoint(StringGrid1.Cells[i,0])>1) then
begin
S:=(strtoint(StringGrid1.Cells[i,0]));

end;
Label2.Caption:='Максимальное число массива:'+floattostr(S);
end;
end.
Подскажите пожалуйста какое условие здесь написать для поиска максимального числа(выделенно зел.цветом)

[Вадим Мошев]

Максимальный элемент в массиве вычисляется так:

max:=a[1];
for i:=2 to n do 
if a[i] > max then max:=a[i];