Правильно ли решена задачка на turbo delphi

Сначала Вы задаёте вопрос о матрицах, потом о том, как выводить на экран. ) Что-то тут. . .Вот исправил:
==========================
{
Дана матрица A(5, 5). Найти max среди элементов,
расположенных на главной диагонали и min среди элементов
побочной диагонали.
}

const
n=5;
Var a:array[1..n, 1..n] of integer; {исходный массив}
min, max, i, j, k : integer;
begin

for i := 1 to n do begin // В этих циклах
for j := 1 to n do begin
a [ i, j ]:= Random(10); // матрица заполняется случайными значениями от 0 до 9.
write(a[i][j]:2); // выводим на экран, что б глянуть что получилось
end;
writeln();
end;

{
for i := 1 to n do begin
for j := 1 to n do
if a[i,j]>max then max:=a[i,j]; // тут находится просто максимальный массив матрицы, а не главной диагонали
writeln('Макcимальное = ',max);
end;

for i := 1 to n do // тут вообще хрень
for j := 1 to n do
if a[n-i+1,j]<min then begin min := a[n-i+1,j]; write('!');
writeln('Минимальное = ',min);
end;}

max := a[1][1]; // инициализируем макс
min := a[1][n]; // инициализируем (присваиваем первое значение) мин
writeln();
for i := 1 to n do begin
for j := 1 to n do begin
if(i = j) and (a[i][j] > max) then max := a[i][j]; // находим макс на главной диагонали
if(j = n-i+1) and (min > a[i][j]) then min := a[i][j]; // находим мин на побочной диагонали
end;
end;

writeln();
writeln('max = ',max);
writeln('min = ',min);
//readln;
end.

Неправильно. Второй цикл нафиг не нужен, можно обойтись одним.

визуально, вроде верно.
Добавь вывод матрицы на экран и проверь правильность результата

правильно)