Pascal/Turbo Pascal - urgente lo tengo que entregar mañana

[Mira a si entiendo la pregunta desplegada horizontal mente la imagen ]

program bitmap;

  uses

     crt;

   var

     matriz : array[1..64,1..64] of byte;

     k1, w1, taimagx, taimagy : integer;

     color : integer;

    procedure resolucionxy(var xr, yr : integer);

    begin

       clrscr;

       writeln('  Entre Resolucion De Bitmap Min = [10 X 10] Max = [64 X 64]');

       writeln;

       write('   Resolucion Vertical : ');

       readln(xr);

       write('   Resolucion Orizontal : ');

       readln(yr);

       clrscr;

    end;

   procedure randomimagen(xi, yi : integer);

   var

     yrr, xrr : integer;

   begin

      randomize;

     yrr := 1;

     xrr := 1;

     repeat

         color := random(65);

         matriz[xrr,yrr] := color;

         xrr := xrr + 1;

         if xrr > xi then

         begin

            xrr := 1;

            yrr := yrr + 1;

         end;

     until yrr > yi;

   end;

  begin

     resolucionxy(taimagx,taimagy);

     randomimagen(taimagx,taimagy);

     writeln('  Despejar la imagen en forma simetrica horizontalmente');

     writeln;

     for k1 := 1 to taimagy do

      for w1 := 1 to taimagx do

      begin

      write('  ',matriz[w1,k1]);

      end;

      writeln;

     readkey;

  end.