function bin2byte( str : string ) : byte;
var
    len,i: integer;
begin
    len := length(str);
    bin2byte := 0
    if ( len <= 8 ) then
    begin
        i := len;
        while ( i > 0 ) do
            begin
                bin2byte := bin2byte + (Ord(str[i]) - 48) shl (len - i);
                dec(i)
            end
    end
end;

function GetData(const Value: Byte): String;
var
  i: Integer;
begin
  Result:= '';
  for i:= 0 to 7 do
  begin
    if Value and (1 shl (i)) <> 0 then
      Result:= Result + '1'
    else
      Result:= Result + '0';
  end;
end;

//передача в порт
unsigned char buffer[200];
buffer[0] = 200;
unsigned long written = 0;
WriteFile(FHandle, &buffer, 1, &written, NULL);

TMatrix = array of array of integer;

function FMinY(const A: TMatrix):integer;

x:=Length(A);//здесь все хорошо
y:=Length(A[Length(A)]);//а в этой строке ошибка

{$APPTYPE CONSOLE}
type
    TDynamicMatrix = array of array of Integer;

var da: TDynamicMatrix;
    x, y: Integer;
begin
  SetLength (da, 5);
  for y := 0 to Length (da) - 1 do
   begin
    SetLength (da [y], y + 5);
    for x := 0 to Length (da [y]) - 1 do
        da [y][x] := x;
   end;
  // Output and release
  for y := 0 to Length (da) - 1 do
   begin
    for x := 0 to Length (da [y]) - 1 do
        Write (da [y][x], ' ');
    WriteLn;
    SetLength (da [y], 0);
   end;
 SetLength (da, 0);
 Readln;
end.

  //Указываем стандартному драйверу следить за появлением данных в приёмном буфере
  SetCommMask(hCommFile, EV_RXCHAR);
  for k:=0 to (StrToInt(Edit2.Text)+StrToInt(Edit4.Text)-1) do begin
    if WaitCommEvent(hCommFile, TMask, nil) = True then begin
      ReadFile(hCommFile,InBuffer,1,BytesRead,nil);
      Memo1.Lines.Add(IntToStr(InBuffer[k])+' считано '+IntToStr(BytesRead)+' байт');
    end;
  end;

////////////////////////////////////////
// Отправка в порт пакета с настройками измерений //
////////////////////////////////////////
  NumberWritten:=0; //Число фактически записанных байт
  BytesRead:=0;       //Число фактически считанных байт
  WriteFile(hCommFile,OutBuffer,15,NumberWritten,nil); //Записал
    for i:=0 to 14 do begin //Смотрим, что отправляли в порт
      Memo2.Lines.Add(IntToStr(OutBuffer[i])+' всего записано '+IntToStr(NumberWritten)+' байт');
    end;{for i}

////////////////////////////////////////
//        Чтение данных из порта          //
////////////////////////////////////////
    if WaitCommEvent(hCommFile, TMask, nil) = True then begin
      ClearCommError(hCommFile,Errors,@Stat);  //Сбрасываем флаг (так и не понял зачем это нужно, но без этого - не работает)
      InBytes := Stat.cbInQue;                 //Число байт во входном буфере
      ReadFile(hCommFile,InBuffer,InBytes,BytesRead,nil); //Прочитал
        for k:=0 to InBytes-1 do begin //Смотрим, что прочли из порта
          Memo1.Lines.Add(IntToStr(InBuffer[k])+' всего считано '+IntToStr(BytesRead)+' байт');
        end;{for k}
    end;{if WaitCommEvent}

    while b<WaitBytes do begin //Пока не прочли столько байт, сколько ожидаем
      //Будем ждать появления данных во входном буфере
      if WaitCommEvent(hCommFile, TMask, nil) = True then begin
        ClearCommError(hCommFile,Errors,@Stat);  //Сбрасываем флаг и получаем статус порта
        InBytes := Stat.cbInQue;                 //Число байт во входном буфере
        ReadFile(hCommFile,InBuffer,InBytes,BytesRead,nil);
        b:=b+BytesRead; //Обновляем информацию о общем кол-ве прочитанных байт
          for k:=0 to InBytes-1 do begin //Смотрим, что прочли из порта
            Memo1.Lines.Add(IntToStr(InBuffer[k])+' всего считано '+IntToStr(BytesRead)+' байт');
          end;{for k}
      end;{if WaitCommEvent}
      FlushFileBuffers(hCommFile); //Очищаем буферы, чтобы 2-ой раз не прочесть то, что уже прочли
    end;{while b<WaitBytes}