Файлы и запись матриц в них Опции

[QDe5n1K]

Сабж...
1) В общем первая процедура - ввод двумерного целочисленного массива ( количество чисел кратно 10, 10 столбцов) и запись его в файл.
2) Вторая процедура - Вызов этого двумерного массива из файла и обработка его таким образом, что в каждой строке сначала идут отрицательные числа, затем положительные, запись в другой файл...
Помогите пожалуйста...

[QDe5n1K]

Вот наработка по первой процедуре:

Код

type TElem = shortint;
    Matrix = array[1..100,1..100] of TElem;
    Filex = file of TElem;

procedure file_name(var result:string);
    begin
    writeln(' Enter name of new file');
    readln(result);
    end;

procedure create_new_file(var filename:string; var m,n:integer);
var
a:matrix;
i,j:word;
numb_data:integer;
ff:filex;
begin
file_name(filename);
assign(ff,filename);
rewrite(ff);
write('Enter number of data: ');
readln(numb_data);
if numb_data mod 10 = 0 then
    m:=numb_data div 10
     else
m:=1+(numb_data div 10);
n:=10;
writeln('<R>-random. input of data, other keys-manual. input of data: ');
if keypressed='R' then
     begin
     end;
   else  
begin
For i:=1 to n do
begin
For j:=1 to m do
begin
 write('A[',i,' ',j,']= ');
 readln(A[i,j]);
end;
end;
end;
writeln('Sohraneno');
for i:=1 to n do
for j:=1 to m do
write(ff,a[i,j]);
close(ff);
end;

Но... хоть убейте, не пойму, почему не работает! (для проверки я в последний цикл вставлял write(a[i,j]); , мне выводились цифры в строчку...
Randomный ввод чисел пока не написал, это не столь важно...

Сообщение отредактировано: QDe5n1K - 12.11.2004 1:21