Program InsertSort;

Const VelikostPole = 10;

var i,j: integer;
    pom: char;
    pole: array[0..VelikostPole] of char;

begin
  for i:=1 to VelikostPole do
  begin
    writeln('Zadejte psmeno ', i);
    readln(pole[i]);
  end;
  writeln('Pole:');
  for i:=1 to VelikostPole do
      write(pole[i], ' ');
  readln();
  writeln();
  for i:=2 to VelikostPole do
  begin
    pom:=pole[i];
    j:=i-1;
    while ((pole[j]>pole[j+1]) and (j<>0)) do
    begin
      pole[j+1]:=pole[j];
      pole[j]:=pom;
      j:=j-1;
    end;
    for j:=1 to VelikostPole do
      write(pole[j], ' ');
    writeln('Pro dal krok stiskni Enter.');
    readln();
  end;
  writeln('Pole:');
  for i:=1 to VelikostPole do
      write(pole[i], ' ');
  readln();
end.