Как считать двумерный массив из файла *.txt в delphi?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22

var
  input: TextFile;
  arr: array of array of Integer;
  i, j, n, m: Integer;
begin
  AssignFile(input, 'input.txt'); // указываем имя файла
  Reset(input); // открываем файл для чтения

  // читаем размеры массива
  ReadLn(input, n);
  ReadLn(input, m);

  // создаем массив нужного размера
  SetLength(arr, n, m);

  // читаем элементы массива
  for i := 0 to n - 1 do
    for j := 0 to m - 1 do
      Read(input, arr[i, j]);

  CloseFile(input); // закрываем файл
end;

1
2
3
4
5

3
4
1 2 3 4
5 6 7 8
9 10 11 12