Файл содержит количество столбцов матрицы. Создать файл той же структуры, содержащий произведение А*В

const n=26; q1=5; q2=5;
var
  Form11: TForm11;
  NameA:file of real;
  NameB:file of real;
  r1,r2:real;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm11.Button1Click(Sender: TObject);
var
i:integer;
begin
AssignFile(NameA,'C:\Documents and Settings\Веталь\Рабочий стол\B16 NameA NameB 16.05\NameA');
Rewrite(NameA);
AssignFile(NameB,'C:\Documents and Settings\Веталь\Рабочий стол\B16 NameA NameB 16.05\NameB');
Rewrite(NameB);
r1:=q1;
r2:=q2;
write(NameA,r1);
write(NameB,r2);
for i:=1 to 26 do
  begin
    r1:=Random*5;
    write(NameA,r1);
    r2:=Random*5;
    write(NameB,r2);
  end;
  closefile(NameA);
  closefile(NameB);
  reset(NameA);
  while not eof(NameA) do begin
    read(NameA, r1);
    Memo1.Lines.Add(FloatToStr(r1));
  end;
  closefile(NameA);
  reset(NameB);
  while not eof(NameB) do begin
    read(NameB, r2);
    Memo2.Lines.Add(FloatToStr(r2));
  end;
  closefile(NameB);
 
end;
 
procedure TForm11.Button2Click(Sender: TObject);
var
q,w,e:integer;
i,j,y,x:integer;
a:array of array of real;
b:array of array of real;
begin
AssignFile(NameA,'C:\Documents and Settings\Веталь\Рабочий стол\B16 NameA NameB 16.05\NameA');
Rewrite(NameA);
AssignFile(NameB,'C:\Documents and Settings\Веталь\Рабочий стол\B16 NameA NameB 16.05\NameB');
Rewrite(NameB);
q:=(n-1)/q1;
setlength(a,q1,q);   //q1 - кол-во стлбц NameA   q - кол-во строк
w:=(n-1)/q2;         //q2 - кол-во стлбц NameB   w - кол-во строк
setlength(b,q2,w);
seek(NameA,2);
seek(NameB,2);
 
 
i:=0; j:=0;
while not eof(NameA) do begin
  read(NameA,e);
  a[i,j]:=e;
  i:=i+1;
  if i=q1 then begin
    i:=0;
    j:=j+1;
  end;
end;
e:=0; y:=0; x:=0;
 while not eof(NameB) do begin
  read(NameB,e);
  b[y,x]:=e;
  y:=y+1;
  if y=q2 then begin
    y:=0;
    x:=x+1;
  end;
end;
 
for j:=0 to q-1 do
  for i:=0 to q1-1 do begin
    a[i,j]:=a[i,j]*b[x,y];
    y:=y+1;
    if y=q2 then begin
      y:=0;
      x:=x+1;
    end;
  end;
Memo3.Lines.Add(floattostr(q));
for j:=0 to q-1 do
  for i:=0 to q1-1 do
    Memo3.Lines.Add(floattostr(a[i,j]));
 
 
end;
 
end.