Нужен код для программы кумир для прохождения любого лабиринта.Радиоактивных клеток нет,нужно пройти без закрашивания

Заполнение массива случайными числами:

Var
   A:array[1..10000] of real;
   n,i:integer;
Begin
Randomize;
Write('n = ');
ReadLn(n);
Write('A(',n,'):');
For i:= 1 to n do
    Begin
    A[i]:=random*(2*n+1)-n;
    Write(' ',A[i]:0:1)
    End;
WriteLn;
i:=0;
For n:= 1 to n-1 do
    if (A[n] > 0)and(A[n+1] > 0) then i:=i+1;
WriteLn('k = ',i);
End.

Ввод с клавиатуры, без массива:

Var
   A,A2:real;
   n,k:integer;
Begin
Write('n = ');ReadLn(n);
Read(A);
k:=0;
For n:= 2 to n do
    Begin
    A2:=A;
    Read(A);
    if (A > 0)and(A2 > 0) then k:=k+1;
    End;
WriteLn('k = ',k);
End.

Unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  A:array of shortint;
implementation

{$R *.dfm}

Function P(A:integer):boolean;
Var
   d,K:integer;
Begin
P:=true;
if A < 2 then P:=false
else
   if A < 4 then P:=true
   else
      if A mod 2 = 0 then P:=false
      else
         Begin
         K:=Trunc(Sqrt(A));
         d:=3;
         While d <= K do
            Begin
            if A mod d = 0 then P:=false;
            d:=d+2
            End;
         End;
End;

procedure TForm1.Button1Click(Sender: TObject);
Var
   N:integer;
begin
Randomize;
Edit2.Text:='';
N:=StrToInt(Edit1.Text);
SetLength(A,N);
For N:= 0 to N-1 do
    Begin
    A[N]:=Trunc(Sin(random(20))*20);
    if P(A[N]) then Edit2.Text:=Edit2.Text+IntToStr(A[N])+'0 '
    else Edit2.Text:=Edit2.Text+IntToStr(A[N])+' '
    End;
end;

end.