минимальный элемент матрицы

program likeMDE;
var
  i,j,min,n: integer;
  a: array[1..5,1..10] of integer;
begin
n:=0;
begin
  WriteLn('massiv:');
  for  i:= 1 to 5 do
  for j:=1 to 10 do
    a[i,j]:=random(10);
     for  i:= 1 to 5 do
     for j:=1 to 10 do
    Write('[', i,',',j,']:',a[i,j],' ');
    end;
    begin
    min:= a[1,1];
    for i:=1 to 5 do
    for j:=1 to 10 do
    begin
    for i:=1 to 5 do
    for j:=1 to 10 do
  if a[i,j]<min then min:=a[i,j];
  writeln('min=',a[i,j],' ');
    n:=i ;
      for i:= 1 to 5 do
      for j:= 1 to 10 do
    if i<>n then
    writeln('[', i,',',j, ']:', a[i,j])
    end;
end;
end.

var
  a:array[1..5,1..10] of integer;
  i,j,imin,jmin:integer;
begin
  randomize;
  for i:=1 to 5 do
    for j:=1 to 10 do
      begin
        a[i,j]:=random(100);
        write(a[i,j]:4);
        if j=10 then
          writeln;
      end;
  writeln;
  {Poisk min}
  imin:=1;
  jmin:=1;
  for i:=1 to 5 do
    for j:=1 to 10 do
      if a[i,j]<a[imin,jmin] then
        begin
          imin:=i;
          jmin:=j;
        end;
  writeln('Minimalniy ',a[imin,jmin],' ego indeks [',imin,',',jmin,']');
  {udalenie stolbtsa s min}
  for i:=1 to 5 do
    for j:=jmin to 9 do
      a[i,j]:=a[i,j+1];
  writeln('Massiv posle udaleniya');
  for i:=1 to 5 do
    for j:=1 to 9 do
      begin
        write(a[i,j]:4);
        if j=9 then
          writeln;
      end;
  writeln;
end.