Вывести на экран 13 целых случайных чисел от 5 до 9 и вещественных от -5 до 5 в два столбика

//PascalABC.Netvar  i,m:integer;  a:single;begin  Randomize;  for i:=1 to 13 do begin    m:=Random(5)+5;    a:=10*Random-5;    Writeln(m,a:5:0)  endend.Тестовое решение:9   -46    28   -38    48    46    46    59   -18   -27    28    05    27    2