создать в файле рандомный двумерный массив

[loon]

как мне создать в файле рандомный двумерный массив.понимаю что легко но не помню как...

[Makarov]

program p1;
uses crt;
var
      f:file of real;   {файл}                 
      i,i1:word;         
      a,a1:real; 
begin
   clrscr;                                          {Очищаем экран}
   assign(f,'Dima.txt');                                     {установление соответствия между файлом}
   rewrite(f);                                     {открытия файла для записи}
   randomize;                                   {генератор случайных чисел}
   for i:=1 to 10 do	{генерация числа и запись в двоичный файл}	    	
     begin
       a1:=random(100);
       a1:=(a1-5)/10;
       write(f,a1);
       writeln(a1:4:2);
     end;
  close(f);	                                               {закрытие файла}                                 
repeat until keypressed;
end.

Вот пример создания двоичного файла.

[puporev]

При чем здесь типизированный файл и какой-то двоичный файл.
Человеку надо матрицу в файл записать, а чтобы посмотреть, что получилось, файл нужен текстовый.

program p1;
uses crt;
var
      f:text;
      n,m,i,j:word;
      a:array[1..50,1..50] of real;
begin
   clrscr;                                        
   assign(f,'Dima.txt');                                    
   rewrite(f);
   write('Vvedite kolichestvo strok n=');
   readln(n);
   write('Vvedite kolichestvo stolbcov m=');
   readln(m);
   randomize;                                  
   for i:=1 to n do
     begin
       for j:=1 to m do
         begin
           a[i,j]:=random(10)+random;
           write(f,a[i,j]:5:2);
         end;
       writeln(f,'');
     end;
  close(f);
writeln('Fail sozdan!');
readln
end.