Строки в Паскале

Что будет выведено на экран после выполнения программы?

  s := '123';
  s := s + '0' + s;
  s := s + s;
  writeln ( s );

Что будет выведено на экран после выполнения этой программы?

  s := '123';
  s := s + s[2] + s + s[3];
  writeln ( s );

Что будет выведено на экран после выполнения этой программы?

  s := '12345';
  n := Length(s) + Length('456');
  writeln ( n );

Что будет выведено на экран после выполнения программы?

  s := '123456789';
  s1 := 'abcdef';
  s := Copy(s,5,2) + '0' + Copy(s1,3,3);
  writeln ( s );

Что будет выведено на экран после выполнения этой программы?

  s := '123456';
  q := 'abc';
  Delete ( s, 2, 3 );
  Insert ( s, q, 2 );
  writeln ( q );

Что будет выведено на экран после окончания работы программы?

  s := '123456789';
  Delete ( s, 1, 2 );
  n := Pos ( '6', s );
  writeln ( n );

Что будет выведено на экран после выполнения этой программы?

  s := '123456789';
  n := Pos ( '456', s);
  Delete ( s, n+2, 3 );
  writeln ( s );

Сколько единиц будет выведено на экран?

  s := '123456';
  while Length(s) > 0 do begin
    Delete ( s, 1, 2 );
    writeln ( '1' )
  end;

Программа должна считать, сколько раз в строке S встречается цифра '0'. Какой оператор надо вставить вместо многоточия? Вводите ответ без пробелов.

  c := 0;
  for k:=1 to Length(S) do begin
    if S[k] = '0' then
      ...
  end;

Какой оператор надо вставить вместо многоточия, чтобы в строке S были записаны символы строки Q в обратном порядке? Вводите ответ без пробелов.

  Q := '123456789';
  S := '1';
  for k:=2 to 9 do begin
    ...
  end;