Написать процедуру сохранения информации файла в двумерном массиве

uses crt;
type matr=array[1..100,1..2] of string[10];//максимальный размер строки для фамилии и имени можно увеличить
procedure Massiv(var f:text;var mt:matr;x:byte);
var s:string;
    i,j:byte;
begin
x:=0;
while not eof(f) do
 begin
  readln(f,s);
  x:=x+1;
  mt[x,1]:=copy(s,1,pos(' ',s)-1);//считаем что в файле имя и фамилия написаны через 1 пробел
  delete(s,1,pos(' ',s));
  mt[x,2]:=s;
 end;
close(f);
writeln('Массив:');
for i:=1 to x do
 begin
  for j:=1 to 2 do
  write(mt[i,j]:13);//если длина строки больше 10, то и 13 увеличить
  writeln;
 end;
end;
var g:text;
    a:matr;
    n:byte;
    name:string;
begin
clrscr;
write('Имя файла: ');
readln(name);
name:=name+'.txt';
assign(g,name);
{$I-} reset(g);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл не найден!');
  writeLn('Программа будет завершена, нажмите ENTER');
  readln;
  exit;
 end;
Massiv(g,a,n);
readln
end.