Переставляя строки и столбцы матрицы добиться, чтобы наибольший элемент оказался в верхнем левом углу

[aigulia]

КМП люди!!!! Срочно нужно написать 2 программы!!! Так как сама плохо разбираюсь в этом, прошу вашей помощи!!

1) Дана вещественная матрица размером 7×4. Переставляя ее строки и столбцы добиться того, чтобы наибольший элемент (один из них) оказался в верхнем левом углу.
2). var A,B: set of char; x:char;
Переменной B присвоить множество, полученное из A удалением элемента x.

P.S.Спасибо всем заранее!!

[sllh_111]

вот:
1)

program Exact2;
uses crt;
var n,m,i,j,k,x:integer;a:array[1..100,1..100] of integer;
begin
clrscr;
write('n=');readln(n);
write('m=');readln(m);
writeln('Ischodnaja matricha:');readln;
randomize;
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=random(20)-5;
        write(a[i,j]:3);
      end;
  writeln;
  end;
readln;

{sortirovka po strokam}
for i:=1 to n do
for j:=1 to m-1 do
for k:=1 to m-1 do
if a[i,k]<a[i,k+1] then
   begin
     x:=a[i,k];a[i,k]:=a[i,k+1];a[i,k+1]:=x;
   end;

{sortirovka po stolbcham}
for j:=1 to m do
for i:=1 to n-1 do
for k:=1 to n-1 do
if a[k,j]<a[k+1,j] then
   begin
     x:=a[k,j];a[k,j]:=a[k+1,j];a[k+1,j]:=x;
   end;

writeln('Rezultat:');readln;
for i:=1 to n do
   begin
     for j:=1 to m do
         write(a[i,j]:3);
         writeln;
   end;
readln;
end.

2)

program ser;
var A,B:set of char;
x:char;
i:integer;
begin
A := ['A','B','C'..'Z'];
B := [];
write('x=');
readln(x);
B := A - [x];
writeln('Mnojestvo B');
for i:= 0 to 255 do
begin
if chr(i) in B then
write(chr(i),' ');
end;
readln;
end.

только халява наказуема!

[aigulia]

Спасибо огромное!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!