Вывести требуемый элемент матрицы из файла

[vudex]

Даю задачу как есть: "Даны два целых числа i и j и файл вещественных чисел, содержащий элементы прямоугольной матрицы (по строкам), причем начальный элемент файла содержит количество столбцов матрицы. Вывести элемент матрицы, расположенный в i-й строке и j-м столбце (строки и столбцы нумеруются от 1). Если требуемый элемент отсутствует, то вывести 0."

Задаю матрицу в файле - с этим разобрался кое-как. Но не могу вывести данные из файла и работать с ними. Как лучше сделать - вывести их в динамический массив и уже в нём обработать? Или можно не приделывать к этой задаче такие костыли? Сразу говорю - код не совсем верный после записи в файл.

procedure TForm1.Button1Click(Sender: TObject);


var
bloknot:textfile;
i,j,stolb,strok,k,h,k1,h1:integer;
r:real;
massive:array of array of real;

begin
randomize;
strok:=strtoint(labeledEdit1.Text);
stolb:=strtoint(labeledEdit2.Text);
k:=strtoint(Edit1.Text);
h:=strtoint(Edit2.Text);
assignFile(bloknot,'matrix.txt');
rewrite(bloknot);

writeln(bloknot,inttostr(stolb));
for i:=2 to strok+1 do  begin
begin
for j:=1 to stolb-1 do begin

r:=0.01*random(1000)-0.01*random(1000);
write(bloknot,floattostr(r)+' ');

end;
end;
writeln(bloknot,floattostr(r));
end;
closeFile(bloknot);
//конец записи в файл


setlength(massive,k,h);
AssignFile(bloknot,'matrix.txt');
reset(bloknot);
while eof(bloknot) do begin

read(bloknot,h);
readln(bloknot,k);
 end;
For k1:=0 to k-1 do
 begin
 for h1:=0 to h-1 do
 massive[k,h]:=r
 end;

 closeFile(bloknot);

end;
end.

[Serge_Bliznykov]

для начала.

файл вещественных чисел,

вы неверно задаёте файл.
правильно так:

  var ff : file of real; (ну или file of double, file of extended)

[Last]

Такого ужасного кода никогда в жизни не видел, не быть тебе программистом.