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

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.

begin
  var nul := new byte[5,10];
  nul.Fill((i,j)->byte(0));
  nul.PrintLn
end.

var IPS := w.DownloadString('https://yadi.sk/d/PxPMNsfO7IDQ4g').ToWords('I').Print

procedure p1(p: integer->()); // p может быть любая подпрограмма, которая принимает integer и возвращает ничего (то есть это процедура)
begin
  p(5);
end;
 
begin
  p1(i->Writeln(i));
  p1(i->Writeln(i*i));
end.