Введение в технологию программирования. Ч.1. Среда объектно-ориентированного программирования Delphi. Коржов Е.Н - 54 стр.

begin
   if SaveDialog1.Execute
       then {ɟɫɥɢ ɞɢɚɥɨɝ ɡɚɤɪɵɬ ɤɧɨɩɤɨɣ "ɋɨɯɪɚɧɢɬɶ"}
          begin
             AssignFile(F,SaveDialog1.FileName);
             Rewrite(F); {ɨɬɤɪɵɬɶ ɮɚɣɥ ɧɚ ɡɚɩɢɫɶ}
             f_p.make:=a;
             f_p.sr:=ss;
             write(F,f_p); {ɞɨɛɚɜɢɬɶ ɡɚɩɢɫɶ ɜ ɮɚɣɥ}
             CloseFile(F); {Ɂɚɤɪɵɬɶ ɮɚɣɥ}
          end;
end; {TForm2.N3Click}

procedure TForm2.N5Click(Sender: TObject);
var
 i,j: integer; {ɋɱɟɬɱɢɤ}
begin
    if OpenDialog1.Execute then
    {ɟɫɥɢ ɞɢɚɥɨɝ ɡɚɤɪɵɬ ɤɧɨɩɤɨɣ "Ɉɬɤɪɵɬɶ"}
        begin
           AssignFile(F,OpenDialog1.FileName);
           Reset(F); {ɨɬɤɪɵɬɶ ɮɚɣɥ ɧɚ ɱɬɟɧɢɟ}
           read(F,f_p); {ɱɢɬɚɟɦ ɡɚɩɢɫɶ ɢɡ ɮɚɣɥɚ}
           for i:=1 to nn do
               for j:=1 to mm do
                  begin
                      StringGrid1.Cells[j,i]:=FloatToStr(f_p.make[i,j]);
                      StringGrid1.Cells[mm+1,i]:=FloatToStr(f_p.sr[i]);
                  end;
           CloseFile(F); {Ɂɚɤɪɵɬɶ ɮɚɣɥ}
        end;
end; { TForm2.N5Click }

procedure TForm2.BitBtn1Click(Sender: TObject);
var
i,j: integer;
begin
     for i:=1 to nn do
        for j:=1 to mm+1 do
            StringGrid1.Cells[j,i]:='';
end; { TForm2.BitBtn1Click }

procedure TForm2.N4Click(Sender: TObject);
                                 54