unit Unit1;

{$mode objfpc}{$H+}

interface

uses

  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, LCLType;

type

  { TForm1 }

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

    procedure FormPaint(Sender: TObject);

  private

    { private declarations }

  public

    { public declarations }

  end;

const

  rows = 10;

  cols = 10;

  size = 30;

var

  Form1: TForm1;

  board: array[0..rows, 0..cols] of boolean;

  px, py: integer;

implementation

{$R *.lfm}

procedure TForm1.FormCreate(Sender: TObject);

var

  f: textfile;

  c: char;

  x, y: integer;

begin

  AssignFile(f, 'level.txt');

  Reset(f);

  for y:=0 to rows-1 do begin

    for x:=0 to cols-1 do begin

      Read(f, c);

      if c = '.' then board[x, y] := true;

      if c = '#' then board[x, y] := false;

      if c = 'X' then begin

        board[x, y] := true;

        px := x;

        py := y;

      end;

    end;

    Readln(f, c);

  end;

  CloseFile(f);

end;

procedure TForm1.FormPaint(Sender: TObject);

var

  x, y: integer;

begin

  for y:=0 to rows-1 do begin

    for x:=0 to cols-1 do begin

      if board[x, y] = false then begin

        Canvas.Rectangle(x*size, y*size, (x+1)*size, (y+1)*size);

      end;

    end;

  end;

  Canvas.Ellipse(px*size, py*size, (px+1)*size, (py+1)*size);

end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

var

  x, y: integer;

begin

  x := px;

  y := py;

  if Key = VK_UP then y := py - 1;

  if Key = VK_DOWN then y := py + 1;

  if Key = VK_LEFT then x := px - 1;

  if Key = VK_RIGHT then x := px + 1;

  if board[x, y] then begin

    px := x;

    py := y;

  end;

  if (x < 0) or (y < 0) or (x >= cols) or (y >= rows) then begin

    ShowMessage('You are escaped from this maze!');

  end;

  Refresh;

end;

end.