Паскаль: 16 - Символьные строки

1. Какой тип данных используется в языке Паскаль для обозначения символьных строк?
Ответ: 
2. Отметьте все правильные объявления символьных строк.
var s: string;
var string: s;
var s, s1, s2: array[1..10] of char;
var s1, s2: integer;
var s, s1, s2: string;
3. Что будет выведено на экран после выполнения программы?
  s := '123';
s := s + '0' + s;
s := s + s;
writeln ( s );
Ответ: 
4. Что будет выведено на экран после выполнения этой программы?
  s := '123';
s := s + s[2] + s + s[3];
writeln ( s );
Ответ: 
5. Что будет выведено на экран после выполнения этой программы?
  s := '12345';
n := Length(s) + Length('456');
writeln ( n );
Ответ: 
6. Что будет выведено на экран после выполнения программы?
  s := '123456789';
s1 := 'abcdef';
s := Copy(s,5,2) + '0' + Copy(s1,3,3);
writeln ( s );
Ответ: 
7. Что будет выведено на экран после выполнения этой программы?
  s := '123456';
q := 'abc';
Delete ( s, 2, 3 );
Insert ( s, q, 2 );
writeln ( q );
Ответ: 
8. Что будет выведено на экран после окончания работы программы?
  s := '123456789';
Delete ( s, 1, 2 );
n := Pos ( '6', s );
writeln ( n );
Ответ: 
9. Что будет выведено на экран после выполнения этой программы?
  s := '123456789';
n := Pos ( '456', s);
Delete ( s, n+2, 3 );
writeln ( s );
Ответ: 
10. Сколько единиц будет выведено на экран?
  s := '123456';
while Length(s) > 0 do begin
Delete ( s, 1, 2 );
writeln ( '1' )
end;
Ответ: 
11. Программа должна считать, сколько раз в строке S встречается подстрока '12'. Какой оператор надо вставить вместо многоточия? Вводите ответ без пробелов.
  c := 0;
repeat
...
if p <> 0 then begin
c := c + 1;
Delete ( S, 1, p+1)
end;
until p = 0;
Ответ: 
12. Программа должна считать, сколько раз в строке S встречается цифра '0'. Какой оператор надо вставить вместо многоточия? Вводите ответ без пробелов.
  c := 0;
for k:=1 to Length(S) do begin
if S[k] = '0' then
...
end;
Ответ: 
13. Какой оператор надо вставить вместо многоточия, чтобы в строке S были записаны символы строки Q в обратном порядке? Вводите ответ без пробелов.
  Q := '123456789';
S := '1';
for k:=2 to 9 do begin
...
end;
Ответ: