Почему программа не пишет все результаты?

program lab9;
{$APPTYPE CONSOLE}
uses
  SysUtils,
  Windows;
 
const N=6;
var
input, output: TextFile;
C: array[1..N, 1..N] of integer;
i, i2,n1,n2,k: integer;
found: boolean;
begin
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
if ParamCount < 2 then begin
Writeln('Не заданы параметры программы');
Readln;
exit;
end;
Assign(input, ParamStr(1));
Assign(output, ParamStr(2));
try
reset(input);
try
try
rewrite(output);
try
try
Readln(input,n1,n2);
for i:=1 to n1 do
begin
for i2:=1 to n2 do
begin
read(input, C[i, i2]);
end;
end;
found:=false;
i:=2;
i2:=1;
while ((not found) and (i2<=n2)) do
begin
while ((not found) and (i<=n1)) do
begin
if (C[i, i2] > C[i-1, i2]) then
begin
found:=true;
k:=i2;
end
else inc(i);
end;
inc(i2);
i:=2;
end;
writeln(output,'Исходная матрица (n1xn2) ',n1,'x',n2);
for i:=1 to n1 do
begin
writeln(output);
for i2:=1 to n2 do
begin
write(output,C[i,i2],' ');
end;
end;
writeln(output);
if (found) then
writeln(output, 'Первый неупорядоченный столбец k= ', k)
else writeln(output, 'Все столбцы упорядочены');
Except writeln('Ошибка при считывании или записи в файл') End;
Finally closeFile(output) End; {4}
Except writeln('Ошибка при создании выходного файла') End;
Finally closeFile(input) End; {2}
Except writeln('Ошибка при открытии файла с исходными файлами')
End;
writeln('Press Enter...');
Readln;
end.