Встречная волна: как остановить распространение волн при встрече?

Program Voln;
 
Uses Crt;
 
Const
 
     Map : array [1..10, 1..10] of Byte =
 
         (
 
                (0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
 
                (0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
 
                (0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
 
                (0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
 
                (0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
 
                (0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
 
                (0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
 
                (0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
 
                (0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
 
                (0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
 
         );
 
var
   XS, YS, XE, YE : Byte;
   X, Y, I, G : Byte;
   MapM : array [1..10, 1..10] of Byte;
   MapG : array [1..10, 1..10] of Byte;
   Moves : Byte;
   MovesX : array [1..100] of Byte;
   MovesY : array [1..100] of Byte;
 
Begin
     ClrScr;
     For Y := 1 to 10 do
         Begin
              For X := 1 to 10 do Write(Map[X, Y], ' ');
              WriteLn;
         End;
     WriteLn('');
     WriteLn('Please enter X and Y of the start: ');
     ReadLn(XS, YS);
     WriteLn('Please enter X and Y of the end: ');
     ReadLn(XE, YE);
     If (Map[XS, YS] = 1) or (Map[XE, YE] = 1) then
        Begin
             WriteLn('Error!!!');
             ReadLn;
             Halt;
        End;
     MapM[XS, YS] := 1;
     MapM[XE, YE] := 1;
     I := 1;
     Repeat
           I := I + 1;
           For Y := 1 to 10 do
             For X := 1 to 10 do
               If MapM[X, Y] = I - 1 then
                 Begin
                   If (Y <10) and (MapM[X, Y + 1] = 0) 
and (Map[X, Y+1] = 0) Then MapM[X, Y+1] := I;
                   If (Y >1) 
and (MapM[X, Y-1] = 0) and (Map[X, Y-1] = 0) Then MapM[X, Y-1] := I;
                   If (X <10) 
and (MapM[X+1, Y] = 0) and (Map[X+1, Y] = 0) Then MapM[X+1, Y] := I;
                   If (X >1) 
and (MapM[X-1, Y] = 0) and (Map[X-1, Y] = 0) Then MapM[X-1, Y] := I;
                  End;
         If I = 100 then
              Begin
                   WriteLn('You can''t go there!!!');
                   ReadLn;
                   Halt;
              End;
     Until I=50;
For Y := 1 to 10 do
         Begin
              For X := 1 to 10 do Write(MapM[X, Y], ' ');
              WriteLn;
         End;  
 
End.