Даны две строки.

[Lamer_q2]

Даны две строки. Пусть n1 - число слов в первой строке, а n2 - во второй (n1<n2). Добавить в конец первой строки, последние n2-n1 слов второй строки.
Набросал код, но он выдает Error: Can’t read or write variables of this type. Не подскажите что не так?
Понимаю что строка Write(a,' '); выводит массив, и поэтому поставил Write(a[i],' '); , но тогда программа выводит exitcode = 201
Что с ней не так? Или может программа неверна...

var s1,s2,t:string;
    i,j,k,n1,n2:integer;
    a: array[1..100] of string;
begin
readln(s1,s2);
i:=1;
j:=1;
n1:=length(s1);
n2:=length(s2);
 while i<=length(s1) do
  begin
  t:='';
   while (s1[i]<>' ') and (i<=length(s1)) do
    begin
    t:=t+s1[i];
    i:=i+1;
  end;
    a[j]:=t;
    j:=j+1;
    i:=i+1;
    end;
    k:=j-1;
     Write(s1,' ');
      for i:=k downto n2-n1 do
      Write(a,' ');
end.

Всем спасибо, извините за беспокойство.



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[SaLoKiN]

var s1,s2,t:string;
    i,j,k,n1,n2:integer;
    //a: array[1..100] of string;
begin
readln(s1);
readln(s2);
n1:=length(s1);
n2:=length(s2);
t:=s1;
for i:=n1+1 to n2 do
    t:=t+s2[i];
writeln(t);
end.

а если так?

[Serge_Bliznykov]

Сообщение от SaLoKiN

....
n1:=length(s1);
n2:=length(s2);
....

а если так?

думаю, что "так" - не пойдёт!

Ведь n1 и n2 - это, судя по заданию, число СЛОВ в строке, а не длина, как у вас в коде.
Думаю, что тут всё чуть-чуть сложнее...


Update
впрочем, этот же "косяк" в исходном коде TC...

[Lamer_q2]

Да да, именно. Этот код работает отлично если все слова имеют одинаковое количество символов.
Например:
1 строка: 123 123 123
2 строка: qwe qwe qwe qwe qwe qwe qwe
Результат: 123 123 132 qwe qwe qwe qwe

Но если слова различно длинны, то получается:
1 строка: 12 1234 123
2 строка: qwe rtyui op
Результат: 12 1234 123p

Подскажите, пожалуйста, как это исправить.

[ZX Spectrum-128]

{Даны две строки. Пусть n1 - число слов в первой строке, а n2 - во второй (n1<n2).
Добавить в конец первой строки, последние n2-n1 слов второй строки.}

const

   limits = [#0..#32,'.',',',':',';','!','?','"'];
type

   TWords = array[1..40] of string;

var
   Str1,Str2: string;
   words : TWords;
   i, m:integer;
   n1,n2,k3,k4,k5:integer;

function GetWords(s : string; var w : TWords) : byte;
var
   i,back,n : byte;
begin
   i := 1;
   n := 0;
   while(i<=length(s)) do begin
      while(i<=length(s)) and (s[i] in limits) do
       inc(i);
      if i<=length(s) then begin
         back := i;
         while(i<=length(s)) and not(s[i] in limits) do
          inc(i);
         inc(n);
         w[n] := copy(s, back, i-back);
      end;
   end;
   GetWords := n;
end;

begin
 str1:='Мама мыла мылом раму.';
 str2:='Даны две строки. Пусть n1 - число слов в первой строке, а n2 - во второй (n1<n2). Добавить в конец первой строки последние n2-n1 слов второй строки.';
 n1:=getwords(str1,words);
 n2:=getwords(str2,words);
 for i:=n2-n1 to n2 do
   str1:=str1+words[i]+' ';
 writeln(str1);
 readln;

end.