Дан текстовый файл, содержащий целые числа. Найти максимальный элемент в каждой строке

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
type
  TMatrix = Array of Array of Integer;
  TMaxArray = Array of Extended;
 
function MaxValues(AFileName: String): TMaxArray;
var M: TMatrix;
    F: TextFile;
    c: Char;
    i, j: Integer;
    x: Integer;
begin
  AssignFile(F, AFileName);
  Reset(F);
  j := 0;
  i := 0;
 
  // читаем пока не конец файла
  while not Eof(F) do
    begin
      j := 0;
      // читаем пока не встретится перенос строки
      while not Eoln(F) do
        begin
          SetLength(M, i + 1);      // увеличиваем размер строк у матрицы на +1
          SetLength(M[i], j + 1);   // увеличиваем размер столбцов для первой строки
          Read(F, M[i, j]);         // считываем данные
          j := j + 1;               // счетчик столбцов
        end;
      Read(F, c);                   // заглушка, чтобы передвигаться по файлу
      Read(F);
      i := i + 1;                   // счетчик строк
    end;
  CloseFile(F);
 
  for i := 0 to Length(M) - 1 do
    begin
      x := M[i, 0]; // пусть 0 элемент будет максимальный
      for j := 0 to Length(M[i]) - 1 do
        begin
          if x < M[i, j] then      // если же он не максимальный,
            x := M[i, j];           //то сделать его максимальным новым элементом
          SetLength(Result, i + 1); // увеличить размер выходного массива
          Result[i] := x;           // и присвоить максимальное значение текущей строки в результирующий массив
        end;
    end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var XYZ: TMaxArray;
    i: Integer;
begin
  XYZ := MaxValues('C:\maxvals.txt');
 
  for i := 0 to Length(XYZ) - 1 do
    Memo1.Lines.Add(FloatToStr(XYZ[i]))
 
end;
 
end.