Помогите мне пожалуйста!!!!

Перемножить 2 матрицы m и n. m,n<=100, обе матрицы целые(-100;100) хранятся в текстовых файлах. Вывести результат либо на экран, либо в принтер, либо в файл.
заранее спасибо..

Правила форума
Где ваши наработки?

хм....здесь нужны наработки?черт...не знала...надо подумать!=))

не моглт бы вы сделать как-нибудь, чтобы результат выводился либо на экран, либо в файл, либо в принтер!?))))))))))допустим при вводе 1 - результат идет в файл, 2 -в принтер,3-на экран!!

program prog;
uses crt;
const
N=100;
var
fin1,fin2,fout:text;
i,j,k:integer;
c:char;
n1,m1,n2,m2:integer;
mas1: ARRAY [1..N,1..N] of integer;
mas2: ARRAY [1..N,1..N] of integer;
mas3: ARRAY [1..N,1..N] of integer;
begin
clrscr;
Assign(fin1,'D:\KP\mat1.txt');
Assign(fin2,'D:\KP\mat2.txt');
Assign(fout,'D:\KP\otv.txt');
Reset(fin1);
Reset(fin2);
Rewrite(fout);
read(fin1,n1);{читаем первое число-строки}
read(fin1,m1);{читаем второе число-столбцы}
for i:=1 to n1 do
for j:=1 to m1 do
read(fin1,mas1[i,j]);{читаем остальные числа}
close(fin1);
read(fin2,n2);{то же второй файл}
read(fin2,m2);
for i:=1 to n do
for j:=1 to m2 do
read(fin2,mas2[i,j]);
close(fin2);
for i:=1 to n1 do
for j:=1 to m2 do
begin
mas3[i,j]:=0;
for k:=1 to m1 do
mas3[i,j]:=mas3[i,j]+mas1[i,k]*mas2[k,j];
end;
writeln(fout,'Proizvedenie matric:');{выводим заголовок}
writeln(fout,'Razmer ',n1,'x',m2);{выводим размер получившейся матрицы}
for i:=1 to n1 do
begin
for j:=1 to m2 do
write(fout,mas3[i,j]:6);{выводим по строкам матрицу}
writeln(fout,'');{переход на новую строку}
end;
close(fout);
writeln('Rabota programmi zavershena.Resultati v faile!!');
readln
end.

А табуляцией пользоваться умеем, а то такую задачу даже проверить сложно.