Program SelectSort;
const VelikostPole = 10;
var i, j, pom2, pom1 : integer;
    pole : array[1..VelikostPole] of integer;
begin
  for i:=1 to VelikostPole do
  begin  {plnme}
    writeln('Zadejte slo ', i);
    readln(pole[i]);
  end;
  write('Budeme adit tato sla: ');
  for i:=1 to VelikostPole do
    write(pole[i], ' ');
  readln();
  writeln();
  for i:=1 to VelikostPole-1 do
  begin    {tdme}
    pom2:=i;
    pom1:=pole[pom2];
    for j:=i+1 to VelikostPole do
      if pole[j]>Pom1 then begin
        pom1:=pole[j];
        pom2:=j;
      end;
    pom1:=pole[i];
    pole[i]:=pole[pom2];
    pole[pom2]:=pom1;
    writeln();
    for j:=1 to VelikostPole do
      write(pole[j], ' ');
    writeln('Pro dal krok stisknte Enter.');
    readln();
  end;
  writeln('Pole:');
  for i:=1 to VelikostPole do
      write(pole[i], ' ');
  readln();
end.
