Помогите пожалуйста переделать прогу на delphi в mathlab

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    label1: TLabel;
    StringGrid1: TStringGrid;
    label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
Form1: TForm1;
ow,ol,cw,cl:array[1..100]of real;
s,a:array[1..100,1..100]of integer;
i,j,k,o,n,m,x,t:integer;
alpha:real;
fk,fo:textfile;
implementation
 
{$R *.dfm}
 
 
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
Begin
n:=0;
//m:=0;
x:=0;
t:=0;
//While (x<>1) and (m<k) do begin
//m:=m+1;
For i:=1 to k do
begin
n:=0;
For j:=1 to o do if s[i,j]=1 then n:=n+1;
if n=0 then
begin
label2.Caption:='NO';
 
x:=1;
break;
end
else label2.Caption:='YES';
end;
 
For j:=1 to o do
begin
n:=0;
For i:=1 to k do if s[i,j]=1 then n:=n+1;
if n=0 then
begin
label2.Caption:='NO';
 
x:=1;
break;
end
else label2.Caption:='YES';
end;
//--------
For i:=1 to k do
For j:=1 to o do
if s[i,j]=1 then
begin
For n:=1 to o do s[i,n]:=0;
For n:=1 to k do s[n,j]:=0;
s[i,j]:=1;
//break;
end;
 
if x=1 then
begin
 
end;
 
//end;
 
 
 
For i:=1 to k do
For j:=1 to o do
StringGrid1.Cells[i,j]:=IntToStr(s[i,j]);
 
end; //procedure end
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin m:=0;
AssignFile(fk,'fk.txt');
AssignFile(fo,'fo.txt');
Reset(fk);
Reset(fo);
Readln(fk,k);
Readln(fo,o);
StringGrid1.ColCount:=k+1;
StringGrid1.RowCount:=o+1;
 
Label1.Caption:='Envelopes:'+#13;
For i:=1 to k do
begin
read(fk,cw[i],cl[i]);
if cl[i]<cw[i] then
begin
alpha:=cl[i];
cl[i]:=cw[i];
cw[i]:=alpha;
end;
StringGrid1.Cells[i,0]:=FloatToStr(cw[i])+' '+FloatToStr(cl[i]);
readln(fk);
Label1.Caption:=Label1.Caption+' '+FloatToStr(cw[i])+' '+FloatToStr(cl[i])+#13;
end;
 
Label1.Caption:=Label1.Caption+'PostCards:'+#13;
For i:=1 to o do
begin
read(fo,ow[i],ol[i]);
if ol[i]<ow[i] then
begin
alpha:=ol[i];
ol[i]:=ow[i];
ow[i]:=alpha;
end;
StringGrid1.Cells[0,i]:=FloatToStr(ow[i])+' '+FloatToStr(ol[i]);
readln(fo);
Label1.Caption:=Label1.Caption+' '+FloatToStr(ow[i])+' '+FloatToStr(ol[i])+#13;
end;
 
Closefile(fo);
CloseFile(fk);
 
For i:=1 to k do
for j:=1 to o do
begin
alpha:=0;
if (ol[j]*ow[j]>cl[i]*cw[i]) then a[i,j]:=0
else if (ol[j]<=cl[i])and(ow[j]<=cw[i]) then a[i,j]:=1 else
while alpha<3.14/2 do
begin
alpha:=alpha+0.05; //make 0.05 variable, so it could change for more accurate results
if (ol[j]*sin(alpha)+ow[j]*cos(alpha)<=cw[i])and
(ol[j]*cos(alpha)+ow[j]*sin(alpha)<=cl[i]) then
begin
a[i,j]:=1;
break;
end
else a[i,j]:=0;
end;
StringGrid1.Cells[i,j]:=IntToStr(a[i,j]);
end;
For i:=1 to k do
For j:=1 to o do s[i,j]:=a[i,j];
//check confirmed
 
end;
 
 
 
end.