Turbo Pascal 7.0 Строки (String)

[Lerank]

Помогите пожалуйста решить 2 задачки на эту тему. Заранее спасибо.

Написать 2 программы которые вводят с клавиатуры исходный текст, а также обрабатывают текст по данным вариантам:
1)Предложение из трёх слов и среднее слово должно быть в круглых скобках.
2)Два предложения состоящие из двух слов, вторые слова предложений поменять местами.

[alex_fcsm]

Среднее слово записывает в скобки

uses crt;
var s,sub:string;
    i,n,k:integer;
    a:array[1..100] of string;
    m:real;

begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else if s[i]<>' ' then sub:=sub+s[i];
until i=length(s);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
writeln;
for i:=1 to n do
 begin
  if i= n div 2+1 then a[i]:='('+a[i]+')';
  write(a[i],' ');
 end;
end.

[Lerank]

Спасибо конечно но она не работает почему-то. А что-нибудь по проще есть?

[alex_fcsm]

Ошибка какая выдается? У меня работает

[Lerank]

я подредактировал работает но немного не так он должен выводить сразу предложение и второе слово в скобках

[FatCat]

Перед конечным end нудно дописать readkey. У меня ваша программа работает.

[Lerank]

это сделал вот только программа должна выводить все 3 слова в строчку а не по отдельности

[FatCat]

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

это сделал вот только программа должна выводить все 3 слова в строчку а не по отдельности

Так она и выводит в строчку. Или нужно без пробелов?

[alex_fcsm]

Напишите пример
Входная последовательность:"Пишу большую программу"
Что должно получиться на выходе?

[Lerank]

на выходе должно быть "Пишу(большую)программу"