ЗАДАЧИ ПО МАССИВУ!! СРОЧНО!

[НАСТЯ 18:)]

1. Поменять местами элементы главной диагонали и первой строки.5*5
2. Создать одномерный массив, элементы которого являются min каждого столбца двумерного массива 5*5

[НАСТЯ 18:)]

Помогите!! SOS =)

[DM_bite]

2

program Xd;
const n=5;
var a:array [1..n,1..n] of integer;
    b:array [1..n] of integer;
    i,j,min: integer;
    begin
    randomize;
    for i:= 1 to n do
     for j:= 1 to n do
      begin
      a[i,j]:= 10-random(n);
      end;
      min:= 10;
      for i:= 1 to n do
      begin
       for j:= 1 to n do
        if min>a[j,i] then
        begin
         min:= a[j,i];
        end;
         b[i]:= min;
        end;
        for i:= 1 to n do
         begin
         for j:= 1 to n do
          begin
          Write(a[i,j],'__');
          end;
          WriteLn;
          end;
          for j:= 1 to n do
           begin
           Write(b[j],'_*_');
           end;
           ReadLn;
           end.

[DM_bite]

1

program Xd;
const n=5;
var a:array [1..n,1..n] of integer;
    i,j,new: integer;
    begin
    randomize;
    for i:=1 to n do
    begin
     for j:=1 to n do
     begin
     a[i][j]:= random(n)*10;
     Write(a[i][j],'_!_');
     end;
     WriteLn;
     end;
     for i:= 1 to n do
      for J:= 1 to n do
       begin
       if i=j then
       begin
       new:= a[i][j];
       a[i][j]:= a[1][j];
       a[1][j]:= new;
       end;
       end;
       for i:= 1 to n do
        begin
        for j:= 1 to n do
         begin
         Write(a[i][j],'___');
         end;
         WriteLn;
         end;
         ReadLn;
         end.

[НАСТЯ 18:)]

Спасибо ))))