program FileToArrPas;{20260308}
uses SysUtils;
const {IN>}FileName1='1';{TO>}FileName2='p2.dpr';        SizeBuf=2048;
  var FromF: file;  ToF:Text;
var S:string[255];
  NumRead, NumWritten: Integer;
Buf: array[1..SizeBuf] of Byte;
c1:Cardinal;
begin
Assign(FromF, FileName1);     Reset(FromF, 1);
Assign(ToF,FileName2);        Rewrite(ToF);
   writeln(ToF,'Program ArrPasToFile;  const FileName='+#39+'2'+#39+';');
   writeln(ToF,'Var Buf:array[0..'+IntToStr(FileSize(FromF)-1)+'] of Byte=(');
   S:='';
      repeat
        BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
if NumRead<>0 then begin For c1:=1 to NumRead do begin
s:=s+IntToStr(Buf[c1])+',';
If Length(S)>=60 then begin writeln(ToF,s); S:=''; end;
                         end;
                    end;
      until (NumRead = 0);
If Length(S)<>0 then begin s:=copy(s,1,Length(S)-1); writeln(ToF,s);end;
      Close(FromF);
   writeln(ToF,');');
   writeln(ToF,'ToF: file;  NumRead, NumWritten: Integer;');
   writeln(ToF,'begin Assign(ToF, FileName);');
   writeln(ToF,'Rewrite(ToF,1); BlockWrite(ToF, Buf, SizeOf(Buf), NumWritten);');
   writeln(ToF,'Close(ToF);end.');
Close(ToF);end.