Ошибка при открытии файла в lazarus'е

[GaJIbI4]

Создал приложение в лазарусе запускается нормально, но при нажатии на кнопку открытия файла выдает ошибку Project raised exception class 'External: SIGSEG'.
Код кнопки которая открывает файл:

procedure TForm1.MenuItem5Click(Sender: TObject);
Var s:string; f:file of string;
begin
assignfile(f,'D:\1.mass');
reset(f);
read(f,s);
edit1.text:=s;
end;

[Serge_Bliznykov]

а закрыть файл не нужно? CloseFile(f) в конце процедуры...
попробуйте.

и с правами доступа к файлу всё хорошо? Файл не на -R -RW диске?
Файл другим процессом/приложением не открыт в этот момент?

[GaJIbI4]

Добавил closefile(f). Файл не открыт в этот момент и не используется другими процессами. Все равно таже ошибка.

[Serge_Bliznykov]

тогда не знаю...

погуглил по тексту ошибки...
народ пишет, что это может быть причиной несовместимость версии дебаггера
или установленный антивирус Commodo (Комодо).. У Вас, чисто случайно, нет такого установленного антивируса?

[GaJIbI4]

такого антивируса нету

[GaJIbI4]

я изменил код сохранения и загрузки файла теперь другая ошибка: Project project 1 raised exception class runerror(103)
Код сохранения массива в файл:

procedure TForm1.MenuItem3Click(Sender: TObject);
Var s,sub:string; f:file of real;
a:array[1..15] of real;
k,i,e:integer;
begin
assignfile(f,'D:\1.mass');
rewrite(f);
s:=Edit1.text;
sub:='';
k:=0;
for i:=1 to length(s)+1 do
if s[i] in ['0'..'9','.','-'] then
sub:=sub+s[i] else
if sub<>'' then
begin
inc(k);  val(sub,a[k],e);
sub:='';
end;
for i:=1 to 15 do
write(f,a[i]);
closefile(f);
end;

Код открытия этого файла:

procedure TForm1.MenuItem5Click(Sender: TObject);
Var s:string; f:file of real;
a:array[1..15] of real;
i:integer;
begin
assignfile(f,'D:\1.mass');
reset(f);
i:=0;
while not eof do
begin
i:=i+1;
read(f,a[i]);
s:=' '+floattostr(a[i]);
end;
closefile(f);
edit1.text:=s;
end;