Lazarus RunError(103)

[Mmcvbg]

Он ругается когда идёт вывод во второе мемо поле
З.Ы. всё работает нормально, если просто не загружать из файла

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
Buttons;

type BbI6OP = record
MAPKA:string[20];
MOgEL:string[20];
OT3bIBbI:string[1];
CTOuMOCTb:string[20];
End;
type


{ TForm1 }

TForm1 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
ComboBox1: TComboBox;
Edit1: TEdit;
Edit2: TEdit;
Edit4: TEdit;
Memo1: TMemo;
Memo2: TMemo;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure Edit1Click(Sender: TObject);
procedure Edit2Click(Sender: TObject);
procedure Edit4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;
A, B : BbI6OP ;
f,k:file of BbI6OP;
x,y : real ;
implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:='введите марку';
edit2.Text:='Введите модель';
combobox1.caption:='введите бал по 5-ти бальной школе';
edit4.Text:='введите цену в рублях';
bitbtn1.caption:= 'записать';
memo1.caption:='выводимые данные с полей';
memo2.caption:='выводимые данные из файла';
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with A do
begin
MAPKA:=form1.Edit1.text;
MOgEL:=form1.Edit2.text;
OT3bIBbI:=form1.combobox1.Caption;
CTOuMOCTb:=form1.Edit4.text;
end;

memo1.Lines[0]:='Марка: '+A.MAPKA;
memo1.Lines[1]:='Модель: '+A.MOgEL;
memo1.Lines[2]:='Оцека(по 5 бальной): '+A.OT3bIBbI;
memo1.Lines[3]:='Цена в рублях: '+A.CTOuMOCTb;

Begin
Assignfile(f, 'C:\games\TOBAP.txt');
ReWrite(f);
Write(f, A);
Closefile(f);
End;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin

Begin
Assignfile(k,'C:\games\TOBAP.txt') ;
reset(k);
read(k,B);
Closefile(f);
end;
memo2.Lines[0]:='Марка: '+B.MAPKA;
memo2.Lines[1]:='Модель: '+B.MOgEL;
memo2.Lines[2]:='Оцека(по 5 бальной): '+B.OT3bIBbI;
memo2.Lines[3]:='Цена в рублях: '+B.CTOuMOCTb;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
end;

procedure TForm1.Edit1Click(Sender: TObject);
begin
edit1.Text:='';
end;

procedure TForm1.Edit2Click(Sender: TObject);
begin
edit2.Text:='';
end;

procedure TForm1.Edit4click(Sender: TObject);
begin
edit4.Text:='';
end;

end.