Дан массив A размера N (·6). Упорядочить его по возрастанию методом сортировки простым выбором: найти максимальный элемент массива и поменять его местами с последним (N-м) элементом; выполнить описанные действия N -1 раз, каждый раз уменьшая на 1 количество анализируемых элементов и выводя содержимое массива — Pascal(Паскаль)

uses crt;
const n=6;
type mas=array [1..n]of integer;
procedure Print(var a:mas);
var i:byte;
begin
for i:=1 to n do
write(a[i]:4);
writeln;
end;
var a:mas;
    i,j,nmax,buf:integer;
Begin
clrscr;
randomize;
for i:=1 to n do
a[i]:=random(40)+10;
Print(a);
writeln;
for i:=1 to n-1 do
  begin
    nmax:=i;
    for j:=i+1 to n do
    if a[j]<a[nmax] then nmax:=j;
    buf:=a[i];
    a[i]:=a[nmax];
    a[nmax]:=buf;
    Print(a);
  end;
readln;
end.