Почему переменной не присваивается значение?

program ServerLife;
 
uses System.Net, System.Net.Sockets, System.IO;
 
var
  server: TcpListener := new TcpListener(IPAddress.Any, 5000);
  BreakPr := True;
  f: text;
  pow := biginteger.pow(2, 400);
 
begin
  writeln('IP:', Dns.GetHostByName(Dns.GetHostName()).AddressList.ToArray());
  assign(f, 'Data.txt');
  var BestRes, BestComb: BigInteger;
  
  //Ввод данных с файла
  writeln('Ввод данных с файла');
  var p := -1;
  var sd: array of string := ('0 0', string('0'));
  if not (FileExists('Data.txt')) then
    writealllines('Data.txt', sd);
  var NotProcessed := new BigInteger[0, 2];
  foreach var s: string in readlines('Data.txt') do
  begin
    if p = -1 then
    begin
      BestRes := s.ToWords.ElementAt(0).ToBiginteger;
      BestComb := s.ToWords.ElementAt(1).ToBiginteger;
    end
    else
    begin
      SetLength(NotProcessed, (NotProcessed.Length div 2) + 1, 2);
      NotProcessed[p, 0] := s.ToWords.ElementAt(0).ToBiginteger;
    end;
    inc(p);
  end;
  
  //Тело программы
  writeln('Тело программы');
  server.Start();
  while BreakPr do
  begin
    
    //Вычисление обработанного количества данных в процентах:
    writeln('Вычисление обработанного количества данных в процентах:');
    
    //Введение переменных;
    var percent := '';
    var delit := biginteger.Pow(2, 400);
    var delim := NotProcessed[0, 0] * 100;
    
    //Вычисление целой части;
    repeat
      percent += (delim div delit).ToString;
      delim := delim mod delit;
    until delim div delit = 0;
    
    //Вычисление дробной части.
    percent += '.';
    loop 120 do
    begin
      percent += (delim div delit).ToString;
      delim := (delim mod delit) * 10;
    end;
    (percent + '%').Println;
    
    //Запуск сервера
    writeln('Запуск сервера');
    var client := server.AcceptTcpClient();
    var stream := client.GetStream();
    
    //Получение данных
    writeln('Получение данных');
    var br := new BinaryReader(stream);
    var data := br.ReadString();
    
    //Проверка наличия ответа в запросе на данные:
    if data <> 'R' then
    begin
      
      //Нахождение лучшего результата;
      if data.ToWords.ElementAt(2).ToBiginteger > BestRes then
      begin
        BestRes := data.ToWords.ElementAt(2).ToBiginteger;
        BestComb := data.ToWords.ElementAt(1).ToBiginteger;
      end;
      
      //Удаление обработанных данных из списка необработанных.
      for var i := 0 to (NotProcessed.Length div 2) - 1 do
        if data.ToWords.ElementAt(0).ToBiginteger = NotProcessed[i, 0] then
        begin
          if i = 0 then
          begin
            NotProcessed[0, 0] += 1000000;
            if NotProcessed[0, 0] > pow then
              NotProcessed[0, 0] := pow;
            NotProcessed[0, 1] := 0;
          end
          else
          begin
            for var k := i to (NotProcessed.Length div 2) - 2 do
            begin
              NotProcessed[i, 0] := NotProcessed[i + 1, 0];
              NotProcessed[i, 1] := NotProcessed[i + 1, 1];
            end;
            SetLength(NotProcessed, (NotProcessed.Length div 2) - 1, 2);
          end;
        end;
    end;
    
    //Проверка на наличие данных с просроченным ответом;
    data := '';
    var seconds := True;
    for var i := 0 to (NotProcessed.Length div 2) - 1 do
      if ((milliseconds - NotProcessed[i, 1] > 1000000) or (NotProcessed[i, 1] = 0)) and Seconds then
      begin
        data := NotProcessed[i, 0].ToString;
        NotProcessed[i, 1] := milliseconds;
        Seconds := False;
      end;
    
    
    //Добавление нового элемента в массив.
    if Seconds then
    begin
      SetLength(NotProcessed, (NotProcessed.Length div 2) + 1, 2);
      (NotProcessed[(NotProcessed.Length div 2) - 1, 0], NotProcessed[(NotProcessed.Length div 2) - 1, 1]) := (NotProcessed[0, 0], NotProcessed[0, 1]);
      NotProcessed[0, 0] := (NotProcessed[(NotProcessed.Length div 2) - 1, 0] + 1000000 > pow) ? pow : NotProcessed[(NotProcessed.Length div 2) - 1, 0] + 1000000;
      NotProcessed[0, 1] := milliseconds;
      data += NotProcessed[0, 0].ToString;
    end;
    
    //Передача данных
    writeln('Передача данных');
    var bw := new BinaryWriter(stream);
    bw.Write(data);
    bw.Flush();
    
    //Остановка сервера
    writeln('Остановка сервера');
    stream.Close();
    client.Close();
    
    //Запись данных в файл
    writeln('Запись данных в файл');
    rewrite(f);
    println(f, BestRes, BestComb);
    for var i := 0 to (NotProcessed.Length div 2) - 1 do
      Println(f, NotProcessed[i, 0]);
    close(f);
    BreakPr := (NotProcessed.Length = 2) and (NotProcessed[0, 0] = pow) ? False : True;
  end;
end.

program ClientLife;
 
uses System.Net, System.Net.Sockets, System.IO;
 
///Отправляет строку по указанному адресу и возвращает ответ
function Connect(Self: string; IP: string; Port: integer): string; extensionmethod;
begin
  var client := new TcpClient(IP, Port);
  var stream := client.GetStream();
  var bw := new BinaryWriter(stream);
  bw.Write(Self);
  bw.Flush();
  var br := new BinaryReader(stream);
  Result := br.ReadString();
  stream.Close();
  client.Close();
end;
 
begin
  //Определение IP сервера
  {writeln('Определение IP сервера');
  var w := new WebClient();
  var IPS := w.DownloadString('https://yadi.sk/d/_cGBP77ieNcG8Q').ToWords('I').Print;
  while not ((IPS.First.ToString.First = 'P') and (IPS.First.ToString.Last = 'P')) do
    IPS := IPS.Skip(1);
  var IP := IPS.First.ToWords('P').JoinIntoString.Println;}
  
  var IP:={Напишите ваш IP:}0.0.0.0;
  
  var (Field, Field1) := (new byte[42, 42], new byte[42, 42]);
  var BestComb: BigInteger;
  var sum, bestsum: integer;
  
  //Получение данных с сервера
  writeln('Получение данных с сервера');
  var c := string('R').Connect(IP, 5000);
  
  while True do
  begin
    
    //Перебор 100000 вариантов (~5 мин)
    writeln('Перебор 1000000 вариантов (~5 мин)');
    var g := c.ToBigInteger;
    var n := 0;
    loop 10000 do
    begin
      
      //Перевод числа BigInteger в двумерный бинарный(из нулей и единичек) массив
      var duo := '';
      var delim := g + n;
      while not (delim = 0) do
      begin
        duo := (delim mod 2).ToString + duo;
        delim := delim div 2;
      end;
      duo += '0' * (400 - duo.Length);
      var k := 1;
      for var i := 11 to 30 do
        for var j := 11 to 30 do
        begin
          Field[i, j] := StrToInt(Duo[k]);
          Inc(k);
        end;
      
      //Симуляция игры (10 ходов)
      loop 10 do
      begin
        for var i := 1 to 40 do
          for var j := 1 to 40 do
            case Field[i - 1, j - 1] + Field[i - 1, j] + Field[i - 1, j + 1] + Field[i, j - 1]
            + Field[i, j + 1] + Field[i + 1, j - 1] + Field[i + 1, j] + Field[i + 1, j + 1] of
              0, 1, 4..8: Field1[i, j] := 0;
              2: Field1[i, j] := Field[i, j];
              3: Field1[i, j] := 1;
            end;
        for var i := 1 to 40 do
          for var j := 1 to 40 do
            Field[i, j] := Field1[i, j];
      end;
      
      //Нахождение лучшей комбинации
      sum := 0;
      for var i := 1 to 40 do
        for var j := 1 to 40 do
          if Field[i, j] = 1 then
            inc(sum);
      if sum > bestsum then
      begin
        BestComb := g + n;
        bestsum := sum;
      end;
      
      inc(n);
      if n mod 100 = 0 then
        ((n div 100) * 100).Println;
    end;
    
    //Отправка результатов на сервер и получение новой задачи
    writeln('Отправка результатов на сервер и получение новой задачи');
    c := concat(c, ' ', BestComb.ToString, ' ', BestSum.ToString).Connect(IP, 5000);
    (BestSum, BestComb) := (0, 0);
  end;
end.

var NotProcessed := new BigInteger[0, 2];

begin
  var a := new integer[3, 2];
  a.Println;
  a.Length.Println; //6
  a.RowCount.Println; //3
  a.ColCount.Println //2
end.

begin
  var a := new integer[10];
  a.Fill(i->i*i);
  a.Println;
end.

function lambda1(i: integer): integer;
begin
  Result := i*i;
end;
 
begin
  var a := new integer[10];
  a.Fill(lambda1);
  a.Println;
end.

function lambda1(i: integer): integer;
begin
  Result := i*i;
end;
 
begin
  var a := new integer[10];
  for var i := 0 to a.Length-1 do
    a[i] := lambda1(i);
  a.Println;
end.

nul.Fill(i,j -> 0);

.Fill((i,j)->0)