типизированный файл

Program TaskThree;
Var
a:array[1..10,1..10] of integer;
p:array [1..10] of integer;
i, j, m, n, max: integer;
input: file of integer;
output: text;
 
Procedure fill (n, m:integer);
var i, j: integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
write(output, a[i,j],' ');
end;
writeln;
end;
end;
 
Procedure outputs (n, m, i, j:integer);
begin
for j:=1 to m do
begin
p[j]:=1;
for i:=1 to n do
p[j]:=p[j]*a[i,j];
writeln(output,'Ïðîèçâåäåíèå ',j,' ñòîëáöà=',p[j]);
writeln('Ïðîèçâåäåíèå ',j,' ñòîëáöà=',p[j]);
end;
end;
 
Procedure maxvalue (n, i, max:integer);
begin
max:=p[1];
for i:=1 to m+1 do if max<p[i] then max:=p[i];
writeln(output,'');
writeln(output,'Íàèáîëüøåå çíà÷åíèå ïðîèçâåäåíèÿ=', max);
writeln ('Íàèáîëüøåå çíà÷åíèå ïðîèçâåäåíèÿ=', max);
end;
 
Begin
randomize;
assign(input,'input.txt');
assign(output,'output.txt');
rewrite(output);
writeln(output,'Âûïîëíèë ñò. ãð. ÓÏÒÑ-11 Ùåëêîâ Àëåêñåé Äìèòðèåâè÷'); 
writeln(output,'');
writeln(output,'Ôîðìóëèðîâêà çàäàíèÿ: íàéäèòå ìàêñèìàëüíîå ïðîèçâåäåíèå ýëåìåíòîâ ñòîëáöîâ ìàòðèöû (n,m)');
writeln(output,'');
 
write('Ââåäèòå êîë-âî ñòðîê ìàòðèöû, íå áîëåå 10=');
write(output,'Ââåäèòå êîë-âî ñòðîê ìàòðèöû, íå áîëåå 10=');
readln(n);
reset(input);
read(input,n);
close(input);
writeln(output,n);
 
write('Ââåäèòå êîë-âî ñòîëáöîâ ìàòðèöû, íå áîëåå 10=');
write(output,'Ââåäèòå êîë-âî ñòîëáöîâ ìàòðèöû, íå áîëåå 10=');
readln(m);
reset(input);
read(input,m);
close(input);
writeln(output,m);
 
writeln('Èñõîäíàÿ ìàòðèöà');
writeln(output,'');
writeln(output, 'Èñõîäíàÿ ìàòðèöà');
writeln(output,'');
fill (n, m);
 
writeln(output,'Ïðîçâåäåíèÿ ñòîëáöîâ ìàòðèöû:');
writeln('Ïðîçâåäåíèÿ ñòîëáöîâ ìàòðèöû:');
writeln(output,'');
outputs (n, m, j, i);
maxvalue (n, i, max);
close(output);
end.