Обработка двумерных числовых массивов - Pascal - Ответ 200427

uses crt;
const
n=5;
var
a:array[1..n,1..n] of real;
i,j,imn,jmn:byte;
mn,x:real;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=10*random;
mn:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]<mn then
  begin
   mn:=a[i,j];
   imn:=i;
   jmn:=j;
  end;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  if (i=imn)and(j=jmn)then
   begin
    textcolor(12);
    write(a[i,j]:5:2);
   end
  else
   begin
    textcolor(15);
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
if jmn<>n then
 begin
  for i:=1 to n do
   begin
    x:=a[i,jmn];
    a[i,jmn]:=a[i,n];
    a[i,n]:=x;
   end;
  textcolor(15);
  writeln('Результат:');
  for i:=1 to n do
   begin
    for j:=1 to n do
    if (i=imn)and(j=n)then
     begin
      textcolor(12);
      write(a[i,j]:5:2);
     end
    else
     begin
      textcolor(15);
      write(a[i,j]:5:2);
     end;
    writeln;
   end;
  end
else write('Минимальный элемент в последнем столбце! Матрица не меняется.');
readln
end.