Задачи в делфи. информационная модель задачи.

[@leks@]

Решить задачу в делфи.
Задача

На курском подшипниковом предприятиии имеются данные о 10 контрольных проверках каждой из 50 партий подшипников. Определить номер партии, в которой количество отклонений от заданного размера было наибольшим.

[Mad_Cat]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    strngrd1: TStringGrid;
    btn1: TButton;
    btn2: TButton;
    edt1: TEdit;
    lbl1: TLabel;
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var i:Integer;
    j:Integer;
begin
Randomize;
for i:=1 to strngrd1.ColCount-1 do
 for j:=1 to strngrd1.RowCount -1 do
    strngrd1.Cells[i,j]:=IntToStr(Random(10)+1);
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
begin
for i:=1 to strngrd1.colcount-1 do
 strngrd1.Cells[i,0]:=IntToStr(i);
for i:=1 to strngrd1.rowcount-1 do
 strngrd1.Cells[0,i]:=IntToStr(i);
 lbl1.Caption:='';
end;

procedure TForm1.btn2Click(Sender: TObject);
var k,km,im:integer;
i,j:Integer;
begin
  k:=0;km:=0;
 for i:=1 to strngrd1.colcount-1 do
 begin
  k:=0;
  for j:=1 to strngrd1.RowCount-1 do
  if StrToInt(strngrd1.Cells[i,j])<>StrToInt(edt1.text) then inc(k);
  if k>km then begin km:=k;im:=i;end;
end;
    lbl1.Caption:= '# партии:'+IntToStr(im);
end;
end.

[@leks@]

можешь помочь???У меня с этим совсем плохо((