[fizik]

Пишу программу. В чем ее суть. Она берет текстовый файл dump и из него построчно берет данные .Для каждой строчки кладет третье число из строки в первый массив(masx), четвертый во второй(masy), пятый в третий(masz). И все вроде как хорошо(видно, что данные из последний строки показывает верно через showmessage в конце), но при закрытии программы выскакивает ошибка:
raised exception class einvalidpointer with message 'invalid pointer operation'.
Понял почитав интернет, что это связано с массивами.Однако не понимаю как конкретно.Массивы не маленькие.Но не так чтобы огромные.
На то, что делается при создании формы не обращайте внимание это к сути забора данных из файла не имеет отношения.
Очень прошу помощи.Программа нужна для научной работы.Вот текст программы.Так же прикладываю сам проект и образец файла dump.

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  sigma:real;
  skvadrata:real;
  kol:integer;
  implementation

{$R *.dfm}
{************************установка начальных значений**************************}
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.AutoSize:=true;
sigma:=strtofloat(edit1.text);
skvadrata:=1/sigma;
kol:=trunc((strtofloat(edit2.text))/skvadrata);

end;



{************************чтение координат из строки****************************}
function readnumber(text:string;N:integer):real;
var
stroka:String;
flag:boolean;
pos,probel:integer;
begin
pos:=1;flag:=false;probel:=0;
//ищем первый символ после N-го пробела
while probel<N do
begin
if Ord(text[pos])=32 then probel:=probel+1;
pos:=pos+1;
end;
//прибавляем символы пока не найдем следующий пробле
while Ord(text[pos])<>32 do
begin
stroka:=stroka+text[pos];
pos:=pos+1;
end;
//заменяем символ точки на символ запятой
flag:=false;pos:=1;
while flag=false do
begin
if ord(stroka[pos])=46 then
begin
stroka[pos]:=',';
flag:=true;
end;
pos:=pos+1;
end;
//выводим результат в виде числа
result:=strtofloat(stroka);
end;
{********************определяем количество строк в файле***********************}
function TextSize(FileName: string): integer;
var
  k:integer;
  f:text;
begin
  if FileExists(FileName) then
  begin
    assignfile(f,FileName);
    reset(f);
    k:=0;
    while not(eof(f)) do
      begin
        readln(f);
        inc(k);
      end;
    result:=k;
  end
 else
    Result := -1;
end;




{******************************чтение координат в массив***********************}

procedure TForm1.Button1Click(Sender: TObject);
var
myFile : TextFile;
razmer,nomer:integer;
masx,masy,masz:array of real;
text1: string;
begin

// открытие файла для чтения
AssignFile(myFile, 'dump.txt');
Reset(myFile);
//определяем количество строк в файле
razmer:=0;
razmer:=TextSize('dump.txt');
//задаем длинну массивов
SetLength(masx, razmer+1);
SetLength(masy, razmer+1);
SetLength(masz, razmer+1);
//читаем данные из файла в массив
nomer:=1;
//while not Eof(myFile) do
while nomer<=(razmer) do
begin
Readln(myFile,text1);
masx[nomer]:=readnumber(text1,2);
masy[nomer]:=readnumber(text1,3);
masz[nomer]:=readnumber(text1,4);
nomer:=nomer+1;
end;
// Закрытие файла
CloseFile(myFile);
ShowMessage( floattostr(masx[8000]) );
ShowMessage( floattostr(masy[8000])  );
ShowMessage(  floattostr(masz[8000])  );
end;

end.

lmikle: Пользуемся тегами для оформления!