Как программировать спрайты?

uses dos,crt;
{$I HUMAN.INC}
type
    sr=array[1..10,1..10] of byte;
var
   mas:sr;
   i,j,n,k:integer;
   r:registers;
 
procedure pixel(x,y,c:integer);
begin
   mem[$a000:(y shl 8 + y shl 6 + x)]:=c;
end;
 
procedure spr(spri:sr);
begin
 for i:=1 to 10 do
   for j:=1 to 10 do
   begin
      if spri[i,j]=1 then pixel(i,j,15)
      else pixel(i,j,0);
   end;
end;
 
procedure initgrp; assembler;
asm
   mov ax,13h
   int 10h
end;
 
begin
   initgrp;
   n:=400;
   k:=1;
   repeat
      for i:=1 to 10 do
         for j:=1 to 10 do
            begin
               if dv1[j,i]=1 then pixel(i+k,j,15)
               else pixel(i+k,j,0);
            end;
      delay(n);
      k:=k+1;
      for i:=1 to 10 do
         for j:=1 to 10 do
            begin
               if dv2[j,i]=1 then pixel(i+k,j,15)
               else pixel(i+k,j,0);
            end;
      delay(n);
      k:=k+1;
      for i:=1 to 10 do
         for j:=1 to 10 do
            begin
               if dv3[j,i]=1 then pixel(i+k,j,15)
               else pixel(i+k,j,0);
            end;
      delay(n);
      k:=k+1;
      for i:=1 to 10 do
         for j:=1 to 10 do
            begin
               if dv4[j,i]=1 then pixel(i+k,j,15)
               else pixel(i+k,j,0);
            end;
      delay(n);
      k:=k+1;
      for i:=1 to 10 do
         for j:=1 to 10 do
            begin
               if dv5[j,i]=1 then pixel(i+k,j,15)
               else pixel(i+k,j,0);
            end;
      delay(n);
      k:=k+1;
      for i:=1 to 10 do
         for j:=1 to 10 do
            begin
               if dv6[j,i]=1 then pixel(i+k,j,15)
               else pixel(i+k,j,0);
            end;
      delay(n);
      k:=k+1;
      for i:=1 to 10 do
         for j:=1 to 10 do
            begin
               if dv7[j,i]=1 then pixel(i+k,j,15)
               else pixel(i+k,j,0);
            end;
      delay(n);
      k:=k+1;
      if k=320 then k:=1;
   until keypressed;
end.
 
 
const
     dv1 : array[1..10,1..10] of byte =
     (
     (0,0,0,0,0,0,0,0,0,0),
     (0,0,0,0,1,1,0,0,0,0),
     (0,0,0,0,1,0,0,0,0,0),
     (0,0,0,0,1,0,0,0,0,0),
     (0,0,0,0,1,1,0,0,0,0),
     (0,0,0,0,1,0,0,0,0,0),
     (0,0,0,0,1,0,0,0,0,0),
     (0,0,0,0,1,0,0,0,0,0),
     (0,0,0,0,1,0,0,0,0,0),
     (0,0,0,0,1,1,0,0,0,0));
 
 
     dv2 : array[1..10,1..10] of byte =
     (
     (0,0,0,0,0,0,0,0,0,0),
     (0,0,0,0,1,1,0,0,0,0),
     (0,0,0,0,1,0,0,0,0,0),
     (0,0,0,0,1,0,0,0,0,0),
     (0,0,0,1,1,1,0,0,0,0),
     (0,0,0,1,1,0,0,0,0,0),
     (0,0,0,0,1,0,0,0,0,0),
     (0,0,0,0,1,0,0,0,0,0),
     (0,0,0,1,1,0,0,0,0,0),
     (0,0,0,1,1,1,0,0,0,0));
 
 
     dv3 : array[1..10,1..10] of byte =
     (
     (0,0,0,0,0,0,0,0,0,0),
     (0,0,0,0,1,1,0,0,0,0),
     (0,0,0,0,1,0,0,0,0,0),
     (0,0,0,0,1,0,0,0,0,0),
     (0,0,0,1,1,1,0,0,0,0),
     (0,0,1,0,1,0,0,0,0,0),
     (0,0,0,1,1,0,0,0,0,0),
     (0,0,0,1,0,1,0,0,0,0),
     (0,0,1,0,0,1,1,0,0,0),
     (0,0,0,1,1,1,0,0,0,0));
 
 
     dv4 : array[1..10,1..10] of byte =
     (
     (0,0,0,0,1,1,0,0,0,0),
     (0,0,0,0,1,0,0,0,0,0),
     (0,0,0,0,1,0,0,0,0,0),
     (0,0,1,1,1,0,1,0,0,0),
     (0,0,1,0,1,1,0,0,0,0),
     (0,0,1,0,1,1,0,0,0,0),
     (0,0,0,1,0,1,0,0,0,0),
     (0,0,1,0,0,1,0,0,0,0),
     (0,1,0,0,0,1,1,0,0,0),
     (0,0,1,0,0,0,0,0,0,0));
 
 
     dv5 : array[1..10,1..10] of byte =
     (
     (0,0,0,0,1,1,0,0,0,0),
     (0,0,0,0,1,0,0,0,0,0),
     (0,0,0,0,1,0,0,0,0,0),
     (0,0,1,1,1,0,0,0,0,0),
     (0,0,1,0,1,1,1,0,0,0),
     (0,0,0,1,1,1,0,0,0,0),
     (0,0,0,1,1,0,0,0,0,0),
     (0,1,1,1,1,1,0,0,0,0),
     (0,1,0,0,0,1,0,0,0,0),
     (0,0,0,0,0,1,1,0,0,0));
 
 
     dv6 : array[1..10,1..10] of byte =
     (
     (0,0,0,0,0,0,0,0,0,0),
     (0,0,0,0,1,1,0,0,0,0),
     (0,0,0,0,1,0,0,0,0,0),
     (0,0,0,0,1,0,0,0,0,0),
     (0,0,0,1,1,1,0,0,0,0),
     (0,0,0,1,1,0,0,0,0,0),
     (0,0,0,0,1,0,0,0,0,0),
     (0,0,1,1,1,1,0,0,0,0),
     (0,0,1,0,1,0,0,0,0,0),
     (0,0,0,0,1,1,0,0,0,0));
 
     dv7 : array[1..10,1..10] of byte =
     (
     (0,0,0,0,0,0,0,0,0,0),
     (0,0,0,0,1,1,0,0,0,0),
     (0,0,0,0,1,0,0,0,0,0),
     (0,0,0,0,1,0,0,0,0,0),
     (0,0,0,1,1,0,0,0,0,0),
     (0,0,0,0,1,1,0,0,0,0),
     (0,0,0,0,1,0,0,0,0,0),
     (0,0,0,0,1,1,0,0,0,0),
     (0,0,0,1,1,0,0,0,0,0),
     (0,0,0,1,1,1,0,0,0,0));