формирование матрицы из файла

[Олег093]

помогите сформировать матрицу из файла,где первая компонента файла это количество строк в матрице,вторая компонента число строк,а третья компонента сумма всех элементов в матрице.нужно с помощью подпрограммы...вот наработка:

procedure form(var F:Tf; var A:T2m; var i,j:byte);
var buf:integer;
begin
reset(f);
while not eof(f) do
begin
read(f,buf);
If buf<>0 then
begin
I:=filepos(f)-1;
A[i,j]:=buf
end
else write('nevozmozhno sformirovat matricu');
end;
end;

[Олег093]

блин,ну помогите кто нибудь!чо как чмошники?