Дана: квадратная матрица найти: наибольшее и наименьшее значения главной диагонали.

uses crt; var  a: array [1..1000,1..1000] of integer;   i,j,max,min,k: integer; begin  clrscr; randomize;   write ('введи количество столбцов/строк матрицы: '); read(k);   for i: =1 to k do  begin    for j: =1 to k do    begin      a[i,j]: =random(100)-50;       write (a[i,j]: 4);     end;     writeln;   end;   max: =1; min: =1;   for i: =2 to k do    if a[i,i]> max then max: =a[i,i]

      else        if a[i,i]< min then min: =a[i,i];   writeln('наибольшее значение главной диагонали: ',max);   write('наименьшее значение главной диагонали: ',min); end.

var

  a: array [1..100,1..100] of integer;

  i,j,max,min,n: integer;

begin

  write ('введите порядок матрицы: '); readln(n);  

  randomize;

  for i: =1 to n do begin

    for j: =1 to n do begin

    a[i,j]: =random(25)-9;

    write (a[i,j]: 4);

    end;

  writeln;

  end;

  max: =a[1,1];

  min: =a[1,1];

  for i: =2 to n do

    if a[i,i]> max then max: =a[i,i] else

    if a[i,i]< min then min: =a[i,i];

  writeln ('max: ',max);

  writeln ('min: ',min);

  readln;

end.

Исходный код программы, а также результат выполнения (ввод через input.txt, вывод через output.txt) прикреплены во вложении.

Пояснение:

Как я понял, традиционными в паскале вряд ли получится прочитать все числа до конца файла. Если в файле добавить хоть один перенос строки, данная программа уже работать не будет.