unit Prdi;

interface

uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  StdCtrls, ExtCtrls,Printers;

type
  TpriDial = class(TForm)
    OKBtn: TBitBtn;
    CancelBtn: TBitBtn;
    Bevel1: TBevel;
    c1: TRadioButton;
    c2: TRadioButton;
    c3: TRadioButton;
    Label1: TLabel;
    procedure CancelBtnClick(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  priDial: TpriDial;

implementation

{$R *.DFM}

procedure TpriDial.CancelBtnClick(Sender: TObject);
begin
close;
end;

procedure TpriDial.OKBtnClick(Sender: TObject);
var
   f,myfile:Textfile;
   str:String;
   col,i:integer;
begin
     col:=10;
     if c1.checked then col:=1;
     if c2.checked then col:=2;
     if c3.checked then col:=3;
     if col<>10 then
     begin
     AssignFile(f,'c:\temp.ben');
     Reset(f);
     AssignPrn(MyFile);
     Rewrite(MyFile);
     writeln(myfile,' ');
     While not Eof(f) do
     begin
     for i:=1 to col do
     begin
     try
     readln(f,str);
     Write(MyFile, str:20);
     finally
     end;
     end;
     writeln(Myfile);
     end;
     closefile(f);
     System.CloseFile(MyFile);
     end;
end;

end.