Program lab_rob;
 uses crt;

 var for_a,intrs2,intrs1,numOfSign,quantity,numpos,copyStrPos1,copyStrPos2,manager:integer;
 var readsign1, letterUP , readsign2, newsign,askuser:char;
 var inputString1,inputString2,resString,newSourse:string;
 var lever:boolean;

 begin
 lever:=true;
 manager:=1;
 while lever do
   begin

    case manager of
        1:
        begin
           //PART 1:readsign1,readsign2,intrs1,intrs2
           writeln('Введите 2 символа без пробела : ');
           readln(readsign1,readsign2);
           intrs1:= Ord (readsign1);
           intrs2:= Ord (readsign2);
             if intrs1>intrs2 then
              writeln(readsign1,' > ',readsign2)
             else
               begin
                 if intrs1=intrs2 then
                  writeln(readsign1,' = ',readsign2)
                 else
                  writeln(readsign1,' < ',readsign2);
               end;
           readln();
           clrscr;

           //PART 2:intrs1,intrs2
           writeln(intrs1,' ',intrs2);
           readln();
           clrscr;
           manager:= manager + 1;
         end;
        3:
         begin
           //PART 3:for_a
           for for_a:= 1 to 255 do  writeln(for_a,': ',Chr (for_a));
           readln();
           clrscr;
           manager:= manager + 1;
         end;
        5:
          begin
           //PART 4:
           writeln('Введите любую  маленькую букву :' );
           readln(letterUP);

           if (Ord (letterUP) >= 97) and (Ord (letterUP) <= 122) then
            writeln(Chr (Ord (letterUP)-32 ))
           else
            writeln('Введен неподдерживаемый символ');

           readln();
           clrscr;
           manager:= manager + 1;
          end;
         7:
          begin
           //PART 5.1:
           writeln('Введите 2 строки :' );
           readln(inputString1);
           readln(inputString2);
           resString:=Concat(inputString1,inputString2);
           writeln(resString);
           writeln('Length of line: ',Length(resString));
           readln();
           clrscr;
           manager:= manager + 1;
          end;
         9:
          begin
           //PART 5.2
           writeln('Введите номер символа который хотите получить');
           readln(numOfSign);
           if (numOfSign<=Length(resString)) and (numOfSign>0) then
             begin
              writeln(Copy(resString,numOfSign,1));
              writeln('Введите символ, на который хотите заменить данный');
              readln(newsign);
              Delete(resString,numOfSign,1);
              Insert(newsign,resString,numOfSign);
              writeln('Измененная строка: ',resString);
             end
           else
            writeln('Число превышает размеры строки');

           readln();
           clrscr;
           manager:= manager + 1;
          end;
         11:
          begin
           //PART 5.3
           writeln('Введите номер символа и количество символов которые нужно удалить из строки');
           readln(numpos,quantity);
           if numpos+quantity>Length(resString) then
            writeln('Вы превысили размеры строки')
           else
            begin
             Delete(resString,numpos,quantity);
             writeln(resString);
            end;

           readln();
           clrscr;
           manager:= manager + 1;
          end;
         13:
          begin
           //PART 5.4
           writeln('Введите строку, которую нужно вставить на место удаленной части');
           readln(newSourse);
           Insert(newSourse,resString,numpos);
           writeln(resString);

           readln();
           clrscr;
           manager:= manager + 1;
          end;
         15:
          begin
           //PART 5.5
           writeln('Введите границы части строки, которую нужно вывести на экран');
           readln(copyStrPos1,copyStrPos2);
           if (copyStrPos1>0) and (copyStrPos2>0) and (copyStrPos1<copyStrPos2) and (copyStrPos2<Length(resString)) then
           writeln(Copy(resString,copyStrPos1,copyStrPos2-(copyStrPos1-1)))
           else writeln('Вы ввели недопустимые границы');
           readln();
           manager:= manager + 1;
           clrscr;
          end;
         else
          begin
          writeln('Повторить задачу? y/n');
          readln(askuser);
          if askuser = 'y' then
          manager:= manager - 1
          else manager:= manager + 1;
          if manager = 17 then lever:=false;

          clrscr;
          end;
         end;


       end;


 End.