El código (así, de memoria) es más o menos este
Código Delphi
[-]
var
N: Integer;
F: File of integer;
begin
AssignFile(F, 'C:\archivo.num');
Rewrite(F);
for n:=0 to maximo-1 do Write(F,Matriz[n]);
CloseFile(F);
end;
El archivo no es de texto, sino tipo Integer. Ir numero por número hace el trabajo lento (ya me ha pasado otras veces con otras cosas, si mal no recuerdo leyendo carácteres unicode de archivos).
El código para leer el archivo es similar (Read en vez de Write y poco más).