строковые - 1 урок(задачи на уроке)

Примеp 1. С клавиатуры вводят две различные строки. Какая из них больше?

      program  P1;
         var  s1, s2:string;
      begin
       write('Введите две строки ');
       readln(s1,s2);
       If s1>s2
            Then Writeln (1)
            Else Writeln (2)
      end.

Пример 2

Составить программу, которая предлагает с клавиатуры ввести два  имени, а затем:

  а) приветствует пользователей;

  б) выводит слово, составленное из первых букв этих имен.

    program  P1;
         var  a, b, c:string;
      begin
        write ('Имя 1 '); readln(a);
        write ('Имя 2 '); readln(b);
        c:='Здравствуйте, '+a+','+b+'!';
        Writeln (c);
        Writeln (a[1]+b[1])
      end.