Программисты помогите чайнику Задача с Файлами

var
  Form1: TForm1;
a:array[0..100] of real;
b:array[0..100] of real;
c:array[0..100] of real;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,n:integer;
a,b:integer;
begin
n:=StrToInt(Edit2.Text);
a:=StrToInt(Edit3.text);
b:=StrToInt(Edit4.text);
for i:=0 to n-1 do
SG1.Cells[i,0]:=FloatToStr(Random(b-a+1)+a);
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
f:textfile;
i:integer;
n:integer;
a:array[0..100] of real;
b:array[0..100] of real;
begin
n:=StrToInt(Edit2.Text);
if OpenDialog1.Execute then
AssignFile(f,OpenDialog1.FileName);
reset(f);
for i:=0 to n-1 do read(f,A[i]);
for i:=0 to n-1 do read(f,B[i]);
CloseFile(f);
for i:=0 to n-1 do
begin
SG1.Cells[i,0]:=FloatToStr(A[i]);
SG2.Cells[i,0]:=FloatToStr(B[i]);
end;
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
n:integer;
begin
n:=StrToInt(Edit2.Text);
if n in [2..10] then
begin
SG1.ColCount:=n;
SG2.ColCount:=n;
SG3.ColCount:=n;
end
else
showmessage ('Неверно задан размер матрицы (2-5!)');
 
end;
 
procedure TForm1.Button4Click(Sender: TObject);
var
i,j,n:integer;
a,b:integer;
begin
n:=StrToInt(Edit2.Text);
a:=StrToInt(Edit1.text);
b:=StrToInt(Edit5.text);
for i:=0 to n-1 do
SG2.Cells[i,0]:=FloatToStr(Random(b-a+1)+a);
 
end;
 
procedure TForm1.Button5Click(Sender: TObject);
var
f:textfile;
k:integer;
n:integer;
begin
if SaveDialog1.Execute then
begin
n:=StrToInt (Edit2.text);
AssignFile(f,SaveDialog1.FileName);
Rewrite(f);
for k:=0 to n do write(f,SG1.Cells[k,0],' ');
writeln(f);
for k:=0 to n do write(f,SG2.Cells[k,0],' ');
Closefile(f);
end;
end;
 
procedure TForm1.Button6Click(Sender: TObject);
var
i,j,n:integer;
a:array[0..100] of real;
b:array[0..100] of real;
c:array[0..100] of real;
begin
n:=StrToInt(Edit2.Text);
for i:=0 to n-1 do
  begin
     if (A[i]>=B[i]) then
       begin
          C[i]:=A[i];
       end
     else
       begin
          C[i]:=B[i];
       end;
  end;
SG1.Cells[i,0]:=FloatToStr(c[i]);
end;
 
procedure TForm1.Button7Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.N11Click(Sender: TObject);
var
i,j,n:integer;
a,b:integer;
begin
n:=StrToInt(Edit2.Text);
a:=StrToInt(Edit3.text);
b:=StrToInt(Edit4.text);
for i:=0 to n-1 do
SG1.Cells[i,0]:=FloatToStr(Random(b-a+1)+a);
end;
 
procedure TForm1.N21Click(Sender: TObject);
var
i,j,n:integer;
a,b:integer;
begin
n:=StrToInt(Edit2.Text);
a:=StrToInt(Edit1.text);
b:=StrToInt(Edit5.text);
for i:=0 to n-1 do
SG2.Cells[i,0]:=FloatToStr(Random(b-a+1)+a);
end;
 
procedure TForm1.N2Click(Sender: TObject);
var
f:textfile;
i:integer;
n:integer;
a:array[0..100] of real;
b:array[0..100] of real;
begin
n:=StrToInt(Edit2.Text);
if OpenDialog1.Execute then
AssignFile(f,OpenDialog1.FileName);
reset(f);
for i:=0 to n do
read(f,A[i]);
read(f,B[i]);
CloseFile(f);
for i:=0 to n do
SG1.Cells[i,0]:=FloatToStr(A[i]);
SG2.Cells[i,0]:=FloatToStr(B[i]);
 
end;
 
procedure TForm1.N3Click(Sender: TObject);
var
f:textfile;
k:integer;
n:integer;
begin
if SaveDialog1.Execute then
begin
n:=StrToInt (Edit2.text);
AssignFile(f,SaveDialog1.FileName);
Rewrite(f);
for k:=0 to n do
write(f,SG1.Cells[k,0],' ');
write(f,SG2.Cells[k,0],' ');
Closefile(f);
end;
end;
 
procedure TForm1.N6Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.N8Click(Sender: TObject);
var
n:integer;
begin
n:=StrToInt(Edit2.Text);
if n in [2..10] then
begin
SG1.ColCount:=n;
SG2.ColCount:=n;
SG3.ColCount:=n;
end
else
showmessage ('Неверно задан размер матрицы (2-5!)');
end;
 
procedure TForm1.N9Click(Sender: TObject);
begin
close;
end;
 
end.