не работает, что-то не так.

[Анжелика]

найти минимум и максимум. поменять строчки со значениями где они находятся местами.

Program matrix2;
uses crt;
const n=3; m=4;
var a,b:array[1..100,1..100] of integer;  i,j,k,p,max,min:integer;
begin
clrscr;
randomize;
writeln('Ёб室**п ¬*ваЁж*');
writeln;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(50);
write(a[i,j]:5);
end;
writeln;
end;
writeln;
max:=[1,1];
k:=1;
min:=[1,1];
p:=1;
for i:=1 to n do
begin
for j:=1 to m do
begin
if a[i,j]>max then begin
max:=a[i,j];  k:=i;
end
else
if a[i,j]<min then begin
min:=a[i,j];  p:=i;
end;
end;
end;
for j:=1 to m do
begin
b[j]:=a[k,j];
for j:=1 to m do
a[k,j]:=a[p,j];
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:5);
writeln;
end;
readln;
end.

[Сергей089]

Program matrix2;
uses crt;
const n=3; m=4;
var a:array[1..n,1..m] of integer;
    i,j,k,p,max,min,b:integer;

{размер можно написать [1..n,1..m] вместо [1..100,1..100]
Это удобно, если вы захотите поменять размер массива
Можно задавать размер массива во время выполнения программы
Для этого в const вместо n=3; m=4; нужно написать d=100; и в массиве размер
написать [1..d,1..d]
И после начала добавить операторы
repeat
write ('n=');
readln (n);
until (n>0) and (n<=d);
repeat
write ('m=');
readln (m);
until (m>0) and (m<=d);
Тогда размер можно вводить от 1х1 до 100х100}

begin
clrscr;
randomize;
writeln('исходная матрица');
writeln;
for i:=1 to n do
    begin
    for j:=1 to m do
    {здесь эл-ту Aij присваивалось случайное значение от 0 до 50
     я поменял, теперь эл-ту Aij присваивается случайное значение
     от -100 до 100}
        begin
        a[i,j]:=random(200)-100;
        write(a[i,j]:5);
        end;
    writeln;
    end;
writeln;
max:=a[1,1];    {здесь было max:=[1,1]}
k:=1;
min:=a[1,1];    {здесь тоже было min:=[1,1]}
p:=1;
for i:=1 to n do
    for j:=1 to m do
        if a[i,j]>max then begin
                           max:=a[i,j];
                           k:=i;
                           end
                      else if a[i,j]<min then begin
                                              min:=a[i,j];
                                              p:=i;
                                              end;

{ваш участок программы, где нужно поменять строки местами, я не понял,
решил написать заново}

{цикл идет по столбцам}
                 {в цикле меняем значения эл-ов Akj и Apj с помощью
                  переменной b}
for j:=1 to m do 
    begin
    b:=a[k,j];
    a[k,j]:=a[p,j];
    a[p,j]:=b
    end;
{Вывод полученной матрицы на экран}
writeln ('Новая матрица');
for i:=1 to n do
    begin
    for j:=1 to m do
        write (a[i,j]:5);
    writeln;
    end;
writeln ('Для выхода нажмите ENTER');
readln;
end.

[Анжелика]

Спасибо большое, я исправила свои ошибки.)))))))