Ошибки

[Дим@@]

Люди пожалуйста помогите найти ошибки и исправить (в синтаксисе, я не очень понимаю поцедуры).

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  Procedure Get(var x,y,StepNumber : longint);
    begin
      x:=Que[QueBegin,1];
      y:=Que[QueBegin,2];
      StepNumber:=Que[QueBegin,3];
      Inc(QueBegin);
    end;

  Procedure Put(x,y,StepNumber: longint);
    begin
      Inc(QueEnd);
      Que(QueEnd,1):=x;
      Que(QueEnd,2):=y;
      Que(QueEnd,3):=StepNumber;
      Marked[x,y]:=true;
    end;

  Procedure StartProcess;
    var
      i,j : longint;
      StartCell : string;
    begin
      readln(StartCell);
      Sx:=ord(StertCell[1])-ord('A')+1;
      Sy:=ord(StertCell[2])-ord('0');
      Ex:=ord(StertCell[4])-ord('A')+1;
      Ey:=ord(StertCell[5])-ord('0');
      QueBegin:=1;
      QueEnd:=0;
      for i:=1 to 8 do
        for j:=1 to 8 do Marked[i,j]:=false;
      Put(Sx,Sy,0);
    end;


  Procedure PutAll(x,y,StepNumber : longint; var found : boolean);
    type
      Knight=array[1..8,1..8] of integer;
    Const
      Steps : Knight=((1,-2),(1,2),(-1,-2),(-1,2),(2,-1),(2,1),(-2,-1),(-2,1));
    var
      i,CurrentX,CurrentY : integer;
    begin
      found:=false;
      i:=0;
      while (not found) and (i<8) do
        begin
          inc(i);
          CurrentX:=x+steps(i,1);
          CurrentY:=y+steps(i,2);
          found:=(Ex=CurrentX) and (Ey=Currenty);
          if (not found) and (CurrentX>0) and (CurrentY>0) and (CurrentX<9) and (CurrentY<9)
            then Put(CurrentX,CurrentY,StepNumber);
        end;
    end;



begin
  StartProcess;
  StepNumber:=0;
  Found:=(Sx=Ex) and (Sy=Ey);
  while (not Found) do
    begin
      Get(x,y,StepNumber);
      Inc(StepNumber);
      PutAll(x,y,StepNumber,Found);
    end;
  writeln(stepNumber);
end.

[Mad_Cat]

Que - а это чего?
тут так

Que[QueBegin,1];

а тут вот так

Que(QueEnd,1)

со скобочками ты бы определился и функу Que дописал

[Дим@@]

В том и проблема мне дали код по частям и мне нужно разобраться с ним, так что я пока не знаю зачем предназначены эти переменный и этот массив.
Мне помощь нужна только в том, чтобы хотя бы просто запустить эту программу.

[Mad_Cat]

для того чтобы запустить эту прогу нужно определиться что такое QUE массив или функция! если вам сие неизвестно мне тем паче!

Que - это двумерный массив

так обьяви его
и еще
StartCell StertCell разницу видишь?

[Дим@@]

Que - это двумерный массив