1. Из данной матрицы А(7х7), элементы которой формируются как массив случайных чисел,

В текстовый файл запись организуй сам(a).

var a:array[1..7,1..7] of integer;
b:array[1..7] of integer;
i,j,max,min,u: integer;
begin
min:=36000;
max:=0;
for i:= 1 to 7 do
for j:= 1 to 7 do
a[i,j] := random(100);

//запись массива А в текстовый файл

for i:= 1 to 7 do
for j:= 1 to 7 do
if i=j then b[i]:= a[i,j];

for i:= 1 to 7 do
begin
if b[i] lt; min then min:= i;
if b[i] gt; max then max:= i;
end;

u:=b[min];
b[min]:= b[max];
b[max]:= u;

// запись массива В в текстовый файл
end.