проверьте пожалуйста, что не так, а то она не работает

[Анжелика]

Program matrix2;
uses crt;
const n=3; m=4;
var a: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;
for i:=1 to n do
begin
max:=a[i,1];
k:=1;
min:=a[i,1];
p:=1;
for j:=1 to m do
begin
if a[i,j]>max then begin
max:=a[i,j]; k:=j;
end
else
if a[i,j]<min then begin
min:=a[i,j]; p:=j;
end;
end;
end;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:5);
writeln;
end;
readln;
end.

[Greblin]

Чё то я не понял. Вы находите минимум и максимум в каждой строке, причём ничего с ними не делаете. Может, вы вывести забыли?
В чём вобще состоит задача то?

[Анжелика]

)))))спасибо, точно не написала что с ними делать, теперь всё работает