Подсчет модуля колеса по обработке

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  f:Text;
  s:string;
  a1:array[1..100, 1..3] of real;
  a2:array[1..100, 1..4] of real;
  prip,mo:real;
  metod:string;
  i,j,n,nmax:integer;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
     AssignFile(f,'file.txt');
     Reset(f);
     n:=1;
     i:=0;
     j:=0;
     readln(f); readln(f); readln(f); readln(f);
     while not eof(f) do begin read(f,a1[n,1]); read(f,a1[n,2]); readln(f); readln(f); n:=n+1; end;
     Reset(f);
     n:=1;
     readln(f); readln(f); readln(f); readln(f);
     while not eof(f) do
           begin
                readln(f);
                read(f,a2[n,1]); read(f,a2[n,2]); read(f,a2[n,3]); readln(f);
                n:=n+1;
 
                nmax:=n;
           end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
     if Edit1.Text='' then begin
                              n:=0;
                              if Edit2.Text='Чистовое нарезание' then j:=1;
                              if Edit2.Text='Шлифование' then j:=2;
                              if Edit2.Text='Шевингование' then j:=3;
                              repeat n:=n+1 until (a2[n,j]<=StrtoFloat(Edit3.Text));
                              Edit1.Text:='От ' + FloattoStr(a1[n,1]) + ' до ' + FloattoStr(a1[n,2]);
                           end;
     if Edit2.Text='' then begin
                               n:=0;
                               repeat n:=n+1 until ((a1[n,1]<=StrtoFloat(Edit1.Text)) and (a1[n,2]>StrtoFloat(Edit1.Text)));
                               if (StrtoFloat(Edit3.Text)>=a2[n,2]) then Edit2.Text:='Чистовое нарезание';
                               if ((StrtoFloat(Edit3.Text)<a2[n,2]) and (StrtoFloat(Edit3.Text)>=a2[n,3])) then Edit2.Text:='Шлифование';
                               if (StrtoFloat(Edit3.Text)<a2[n,3]) then Edit2.Text:='Шевингование';
                           end;
     if Edit3.Text='' then begin
                                n:=0;
                                if Edit2.Text='Чистовое нарезание' then
                                   begin
                                        repeat n:=n+1 until ((a1[n,1]<=StrtoFloat(Edit1.Text)) and (a1[n,2]>StrtoFloat(Edit1.Text)));
                                        Edit3.Text:='Менее ' + FloattoStr(a2[n,1]);
                                   end;
                                if Edit2.Text='Шлифование' then
                                   begin
                                        repeat n:=n+1 until ((a1[n,1]<=StrtoFloat(Edit1.Text)) and (a1[n,2]>StrtoFloat(Edit1.Text)));
                                        Edit3.Text:='Менее ' + FloattoStr(a2[n,2]);
                                   end;
                                if Edit2.Text='Шевингование' then
                                   begin
                                        repeat n:=n+1 until ((a1[n,1]<=StrtoFloat(Edit1.Text)) and (a1[n,2]>StrtoFloat(Edit1.Text)));
                                        Edit3.Text:='Менее ' + FloattoStr(a2[n,3]);
                                   end;
                           end;
end;
 
end.