Найти минимальный элемент среди элементов, расположенных на главной диагонали

uses crt;
const n=4;
var a:array[1..n,1..n]of integer;
c:array[1..n]of integer;
i,j,min:integer;
 
begin
 clrscr;
 randomize;
 writeln('Исходный массив');
 for i:=1 to n do
 begin 
  for j:=1 to n do
  begin
    a[i,j]:=-50+random(100);
    write(a[i,j]:4);
  end;
  writeln;
 end;
 
 min:=1;
 for i:=1 to n do if a[i,i]<a[min,min] then min:=i;
 writeln('MIN - ',min,' = ',a[min,min]);
 for j:=1 to n do
 begin
  c[j]:=0;
  for i:=1 to n do if a[i,j]=a[min,min] then inc(c[j]);
 end;
 writeln;
 for i:=1 to n do write(c[i],' ');
 readln;
end.

uses crt;
var
   a:array[1..100,1..100] of integer;
   i,j,n,m,k,r,min,x:integer;
begin
clrscr;
write('Ââåäèòå êîëè÷åñòâî ñòðîê=');
readln(n);
write('Ââåäèòå êîëè÷åñòâî ñòîëáöîâ=');
readln(m);
k:=0;
randomize;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(61)-10;
    write(a[i,j],' ');
   end;
  writeln;
 end;
for j:=1 to m do
 begin
  for i:=1 to n do
   if (a[i,j]<0) then inc(k);
  if (k<=min) or (j=1) then min:=k;
  k:=0;
 end;
for j:=1 to m do
 begin
  for i:=1 to n do
   if (a[i,j]<0) then inc(k);
  if (k=min) then x:=j;
  k:=0;
 end;
for i:=1 to n-1 do
 for j:=1 to n-i do
  if (a[i,x]<=a[i+1,x]) then
   begin
    r:=a[i,x];
    a[i,x]:=a[i+1,x];
    a[i+1,x]:=r;
   end;
writeln('Ïðåîáðàçîâàííàÿ ìàòðèöà');
for i:=1 to n do
 begin
  for j:=1 to m do
   write(a[i,j],' ');
  writeln;
 end;
readln
end.

uses crt;
var
   i,j,n,r,p,o,max,min,x,y:integer;
   a:array[1..100,1..100] of integer;
begin
clrscr;
write('Ââåäèòå ñòîðîíó êâàäðàòíîé ìàòðèöû=');
readln(n);
o:=0;
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(61)-10;
    write(a[i,j],' ');
    if (a[i,j]<0) then inc(o);
   end;
  if (o<=min) or (i=1) then
   begin
    min:=o;
    x:=i;
   end;
  writeln;
  o:=0;
 end;
p:=0;
for j:=1 to n do
 begin
  for i:=1 to n do
   if (a[i,j]>0) then inc(p);
  if (p>=max) or (j=1) then
   begin
    max:=p;
    y:=j;
   end;
  p:=0;
 end;
for i:=1 to n do
 begin
  r:=a[x,i];
  a[x,i]:=a[i,y];
  a[i,y]:=r;
 end;
writeln('Ïðåîáðàçîâàííàÿ ìàòðèöà');
for i:=1 to n do
 begin
  for j:=1 to n do
   write(a[i,j],' ');
  writeln;
 end;
readln
end.