const
  Matr:array[ 1 .. 9 , 1 .. 9 ] of integer=(
  ( 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 ),
  ( 32 , 33 , 34 , 35 , 36 , 37 , 38 , 39 , 10 ),
  ( 31 , 56 , 57 , 58 , 59 , 60 , 61 , 40 , 11 ),
  ( 30 , 55 , 72 , 73 , 74 , 75 , 62 , 41 , 12 ),
  ( 29 , 54 , 71 , 80 , 81 , 76 , 63 , 42 , 13 ),
  ( 28 , 53 , 70 , 79 , 78 , 77 , 64 , 43 , 14 ),
  ( 27 , 52 , 69 , 68 , 67 , 66 , 65 , 44 , 15 ),
  ( 26 , 51 , 50 , 49 , 48 , 47 , 46 , 45 , 16 ),
  ( 25 , 24 , 23 , 22 , 21 , 20 , 19 , 18 , 17 )
  );

var
  f:file;
begin
  Assign(f,'data.bin');
  ReWrite(f, 1 );
  BlockWrite(f,Matr,SizeOf(Matr));
  Close(f);
end.

 This is the general layout of a Turbo Pascal program:

   program   ... ;   { Program heading }
   uses      ... ;   { Uses clause }
   label     ... ;   { Labels }
   const     ... ;   { Constants }
   type      ... ;   { Types }
   var       ... ;   { Variables }
   procedure ... ;   { Procedures }
   function  ... ;   { Functions }
   begin
     statement;      { Statements }
     ...
   end.

  ■ The program heading specifies the
    program's name and parameters; it is
    purely decorative and has no meaning to
    the program itself.

{$AppType console}

begin
  WriteLn('Hi!');
  ReadLn;
end.