Нужен совет в реализации волнового алгоритма

program E;
uses crt;
const
a:array[1..10,1..10] of byte = ((0, 0, 1, 0, 0, 0, 0, 0, 0, 0),
                                (1, 0, 0, 0, 0, 1, 0, 0, 1, 0),
                                (0, 0, 0, 1, 1, 1, 0, 0, 1, 1),
                                (0, 1, 0, 0, 0, 1, 0, 0, 1, 0),
                                (0, 0, 0, 0, 1, 1, 1, 0, 1, 0),
                                (0, 0, 1, 1, 1, 0, 1, 0, 0, 0),
                                (0, 0, 0, 1, 0, 0, 1, 0, 0, 0),
                                (1, 1, 0, 1, 0, 0, 1, 1, 1, 0),
                                (0, 1, 0, 0, 0, 0, 1, 0, 0, 0),
                                (0, 1, 0, 0, 0, 0, 1, 0, 0, 0));
var
i,j,z,zz,m,x,num,u:integer;
xs,ys,xe,ye:integer;
label 1,2,3,4,5;
begin
clrscr;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
{a[i,j]:=random(2);}
write (a[i,j], ' ');
end;
writeln;
end;
 
writeln ('vvedite X1 i Y1 Start');
readln(xs,ys);
writeln('vvedite X2 i Y2 End');
readln(xe,ye);
if (a[xs,ys]=1) then
writeln ('Nevernii Start (1-eto block)')
else
writeln('Start ','[',xs,':',ys,']');
if (a[xe,ye]=1) then
writeln ('Nevernii End (1-eto block)')
else
writeln('End ','[',xe,':',ye,']');
writeln;
u:=0;
num:=0;
m:=ys;
x:=ye;
i:=xs;
While (i<>xe) and  (m<>ye)  do
begin
 
 
{1 modul s usloviem i+1;j}
1:
u:=0;
While u=0 do
begin
 
i:=i+1;
if (i=11) then
begin
u:=u+1;
i:=i-1;
 
end;
if (a[i,m]=0) then
begin
num:=num+1;
writeln(i,':',m,' idem dalshe',' hod# ',num);
end
else
u:=u+1;
if (i=xe) and  (m=ye) then
begin
writeln('URA!URA! Tocha B naidena','Shagov = ',num);
goto 5;
end;
end;
 
 
{2 modul s usloviem i;j-1}
2:
u:=0;
While u=0 do
begin
m:=m-1;
if (m=0) then
begin
u:=u+1;
m:=m+1;
 
end;
if (a[i,m]=0) then
begin
num:=num+1;
writeln(i,':',m,' idem dalshe',' hod# ',num);
end
else
u:=u+1;
if (i=xe) and  (m=ye) then
begin
writeln('URA!URA! Tocha B naidena','Shagov = ',num);
goto 5;
end;
end;
 
 
{3 modul s usloviem i-1;j}
3:
u:=0;
While u=0 do
begin
i:=i-1;
if (i=0) then
begin
u:=u+1;
i:=i+1;
 
end;
if (a[i,m]=0) then
begin
num:=num+1;
writeln(i,':',m,' idem dalshe',' hod# ',num);
end
else
u:=u+1;
if (i=xe) and  (m=ye) then
begin
writeln('URA!URA! Tocha B naidena','Shagov = ',num);
goto 5;
end;
end;
 
 
{4 modul s usloviem i;j+1}
4:
u:=0;
While u=0 do
begin
m:=m+1;
if (m=11) then
begin
u:=u+1;
m:=m-1;
goto 1;
end;
if  (a[i,m]=0) then
begin
num:=num+1;
writeln(i,':',m,' idem dalshe',' hod# ',num);
end
else
u:=u+1;
if (i=xe) and  (m=ye) then
begin
writeln('URA!URA! Tocha B naidena','Shagov = ',num);
goto 5;
end;
end;
 
 
end;
5:
readln;
end.