Матрицу размером 5 х 10 заполните случайными двоичными цифрами (0 и 1). Определите номер строки с наибольшим количеством нулей

Var
  x: Array[1..5,1..10] of Integer;
  i,j,max,t,st: Integer;
BEGIN
Writeln('Матрица:');
For i:=1 to 5 do
begin
  For j:=1 to 10 do
  begin
    x[i,j]:=Random(2);
    If x[i,j]=0 Then Inc(t);
    Write(x[i,j]:2);
  end;
  If t>max Then
  begin
    max:=t;
    st:=i;
  end;
  t:=0;
  Writeln
end;
Writeln('Строка с наиб. кол-вом нулей: ',st);
END.

А)1 1/2,1 1/4, 1 1/3, 2 1/3, 8 5/6б)1 3/5, 3 1/2, 3 1/3, 3 3/4, 4 4/9 1 цифра- целая, потом дробь