SORTIROVKA

uses crt;
const nmax=50;
 
var n,i,j,imax,jmax,k,buf,v: integer;
x:byte;
A: array [1..nmax,1..nmax] of integer;
begin
clrscr;
randomize;
writeln ('Введите размерность массива: ');
readln (n);clrscr;
 
for i:=1 to n do
begin
for j:=1 to n do
begin
 
gotoxy(i*3,j*1);
A[i,j]:=random(20);
write (A[i,j],' ');
end;
writeln; end;
 
for k:= 1 to n*n do
for i:= 1 to n do
for j:= 1 to n do
begin
if j<>n then
begin
if a[i,j+1]<a[i,j] then
begin
buf:=a[i,j+1];
a[i,j+1]:=a[i,j];
a[i,j]:=buf;
end; end
else
if(a[i+1,1]<a[i,j])and(i<>n)then
begin
buf:=a[i+1,1];
a[i+1,1]:=a[i,j];
a[i,j]:=buf; end; end;
 
writeln('Отсортированный: ');
for i:= 1 to n do
begin
for j:= 1 to n do
begin
write(a[i,j]:3);
end; writeln; end;
readkey;
end.