Прочитать строку и записать в матрицу

for i:=1 to 4 do
read(f,a[1,i]);
closefile(f);

reset(f);
read(f,n);
read(f,m);
for i:=1 to n do
for j:=1 to m do
read(f,a[i,j]);

procedure TForm1.Button1Click(Sender: TObject);
var a:array of array of integer;
    n,m,i,j:byte;
    s:string;
begin
s:=Memo1.Lines[0];
n:=StrToInt(copy(s,1,pos(' ',s)-1));
delete (s,1,pos(' ',s));
m:=StrToInt(s);
setlength(a,n,m);
for i:=0 to n-1 do
 begin
  s:=Memo1.Lines[i+1]+' ';
  for j:=0 to m-1 do
   begin
    a[i,j]:=StrToInt(copy(s,1,pos(' ',s)-1));
    delete (s,1,pos(' ',s));
   end;
 end;
for i:=0 to n-1 do
   begin
     for j:=0 to m-1 do
     memo2.Text:=memo2.Text+inttostr(a[i,j])+'  ';
     memo2.Text:=memo2.Text+#13+#10;
   end;
end;

var t:TStringList;
begin
t:=TStringList.create; //создаём класс
t.text:=stringReplace('Ваша строка для разделения',' ',#13#10,[rfReplaceAll]);//мы заменяем все пробелы на символы конца строки
//теперь можно убедится что у вас строка разбина на элементы:
showmessage(t[0]);
showmessage(t[1]);
showmessage(t[2]);
showmessage(t[3]);
...
//после работы надо уничтожить класс
t.free;

var t:TStringList;
begin
t:=TStringList.create; //создаём класс
t.text:=stringReplace('Ваша строка для разделения',' ',#13#10,[rfReplaceAll]);//мы заменяем все пробелы на символы конца строки
//теперь можно убедится что у вас строка разбина на элементы:
showmessage(t[0]);
showmessage(t[1]);
showmessage(t[2]);
showmessage(t[3]);
...
//после работы надо уничтожить класс
t.free;