program pptest5;

  var
    s1,s2: packed array [1 .. 2] of char;
    s3,s4: packed array [1 .. 26] of char;
    i: integer;
    ch: char;
    b: boolean;

  begin
    s1 := 'AB';
    s3 := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';

    { character extraction and insertion operations }

    ch := s1[1];
    ch := s1[i];
    s2[2] := ch;
    s2[i] := ch;

    ch := s3[13];
    ch := s3[i];
    s4[8] := ch;
    s4[i] := ch;

    { one word string comparison ( not on the PERQ it isn't!)}
    b := s1 = s2;
    b := s1 <> s2;
    b := s1 > s2;
    b := s1 < s2;
    b := s1 >= s2;
    b := s1 <= s2;

    { multi-word string comparison}
    b := s3 = s4;
    b := s3 <> s4;
    b := s3 > s4;
    b := s3 < s4;
    b := s3 >= s4;
    b := s3 <= s4;
  end { pptest5 }.