Pascal (вопрос по задаче 6) << На главную или назад  

вот кусок из программы.

program obr_str;
const m=4;n=5;
type vector=array[1..m] of real;
var a:array[1..n] of vector;
max,min:real;
ind_str_max,ind_str_min:1..m;
c:vector;
i,j:1..n;
Begin randomize;
..writeln('isxod mas');
..for i:=1 to m do
.. for J:=1 to n do
.. a[i,j]:=random(n*m)-6;
.. writeln('poluch mas');
…for i:=1 to m do begin
… for j:=1 to n do
… write(a[i,j]:3);
…writeln; end;
readln
End.

я не знаю как вывести вещественный массив, чтоб его значения было в обыном виде, а не в 6,6Е+0,0004
кто-нибудь знает?
пробовал через write(round(a[i,j]):3)
он некоторые числа округляет, а некотрые берёт слишком большие значения от 65530-65535