ошибка при работе с файлом

[Juffin]

написал прогу, код:

unit rpg;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

type kletka=record
            x:integer;
            y:integer;
            st:string;
            end;

     dat=text;

var kletkarr:array[1..5,1..5] of kletka;
    pole:array[1..5,1..5] of tbitmap;
    s:string;

procedure TForm1.FormCreate(Sender: TObject);
var f:dat;
    i,j,m,n:integer;

begin
for i:=1 to 5
do for j:=1 to 5
   do begin
      pole[i][j].Create;
      end;
///
assign(f,'data.txt');     ///здесь выделяет строку
reset(f);
for i:=1 to 5
do for j:=1 to 5
   do begin
      read(f,m,n);
      kletkarr[i][j].x:=n;
      kletkarr[i][j].y:=m;
      readln(f,s);
      kletkarr[i][j].st:=s;
      end;
end;

end.

смысл - заполнить из файла матрицы значениями.

ошибка - incompatible types 'TPersistent' and 'Text'
что неправильно?

[Пепел Феникса]

вместо assign(f,'data.txt');, надо assignfile(f,'data.txt');

[Juffin]

ок, проблема решена, теперь следующая - выделяет строчку

pole[i][j].Create;

пишет - Access Violation in adress 0044CE55. Но потом нажимаю ок, еще раз F9 и все работает. .ехе тоже выдает ошибку, ноработает. в чем дело?

[Пепел Феникса]

pole[i][j].Create; замени на pole[i][j]:=TBitMap.Create