Необходимо исправить ошибки в массиве

var
  Form8: TForm8;
  A: array [1..83] of integer;
  A1: array [1..83] of string;
  i,b,c,d,e,k,p: integer;
  pic:string;
  f: textfile;
 
    begin
  for e := 1 to 83 do
     assignfile(f,'mt.txt');
     reset(f);
     readln(f);
    k[e]:=e;
    p:=round(random(3))+1;
    k:=a1[p];
    e[k]:=strtoint(label2.Caption(a1[e]));
    end;

begin .. end;

var
  Form8: TForm8;
  A: array [1..83] of integer;
  A1: array [1..83] of string;
  i,b,c,d,e,k,p: integer;
  pic:string;
  f: textfile;
 
begin
  AssignFile(f, 'mt.txt');
  Reset(f);
  for e := 1 to 83 do begin
    ReadLn(f, {в какую переменную здесь считать из файла?});
    k[e] := e;
    p := Round(Random(3)) + 1;
    k := a1[p];
    e[k] := StrToInt(Label2.Caption(a1[e]));
  end;
  CloseFile(f); // Надо закрыть файл за собой
end;

unit Unit8;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;
 
type
  TForm8 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form8: TForm8;
  A: array [1..83] of integer;
  A1: array [1..83] of string;
  i,b,c,d,e,k,p: integer;
  pic:string;
  f: textfile;
 
implementation
 
{$R *.dfm}
 
procedure TForm8.Button1Click(Sender: TObject);
begin
for i :=1 to 83 do
a[i]:=i;
for i := 1 to 1488 do
  begin
    b:=round(random(83))+1;
    d:=round(random(83))+1;
    c:=a[b];
    a[b]:=a[d];
    a[d]:=c;
  end;
  label1.caption :='';
  for i:=1 to 83 do
    label1.Caption:=label1.caption+inttostr(a[i])+'  ';
    pic:='memes/'+inttostr(a[1])+'.bmp';
    image1.Picture.LoadFromFile(pic);
    pic:='memes/'+inttostr(a[2])+'.bmp';
    image2.Picture.LoadFromFile(pic);
    pic:='memes/'+inttostr(a[3])+'.bmp';
    image3.Picture.LoadFromFile(pic);
 
begin
  for e := 1 to 83 do
     assignfile(f,'mt.txt');
     reset(f);
     readln(f,e);
    k[e]:=e;
    p:=round(random(3))+1;
    k:=a1[p];
    e[k]:=strtoint(label2.Caption(a1[e]));
 
end;
 
end;
 
end.

label1.Caption:=label1.caption+inttostr(a[i])+'  ';