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

[bles]

Привет, помогите пожалуйста сделать задачу.
1. Вводится строка произвольного текста. Вывести на экран первое и второе слова.

Помогите очень нужно...
Заранее благодарен !

[Don Karleone]

k:=0;
i:=1;
st:='';
repeat
st:='';
while not (str[i] in ['a'..'z']) do
Inc(i);
while (str[i] in ['a'..'z']) do
begin
st:=st + str[i];
Inc(i);
end;
writeln(st);
Inc(k);
until k = 2;

str - строка произвольного текста из латинских букв (строчных);
Вроде должно работать!

[DoDge_VipeR]

 var s,sub:string;
 i:Integer;
begin
s:='slovo1 slovo2 slovo3';
Trim(s);
  for i:=1 to 2 do begin
sub:=copy (s,1,pos(' ',s));
delete(s,1,pos(' ',s));
writeln(sub);
  end;
  readln;
end.

[bles]

Don Karleone,
Выводит сначала букву g, а потом в следующей строке первое слово из строки)
что то не так...
DoDge_VipeR
А тут ругается на Trim, это наверно не из паскаля функция)

[zumm]

program str;
var
 s: string;
 i: integer;
begin
 write('Введите строку: ');
 readln(s);
 while s[i]<>' ' do
 begin
  write(s[i]);
  inc(i);
 end;
 inc(i)
 while s[i]<>' ' do
 begin
  write(s[i]);
  inc(i);
 end;
end.

PS если помог нажми на весы, а то скоро уже паутиной покроются...

[bles]

zumm,
Когда вводишь строку программа нечего не выводит просто зацикливается...

[zumm]

program str;
var
 s: string;
 i: integer;
begin
 write('Введите строку: ');
 readln(s);
 i:=0;
 while s[i]<>' ' do
 begin
  write(s[i]);
  inc(i);
 end;
 inc(i)
 while s[i]<>' ' do
 begin
  write(s[i]);
  inc(i);
 end;
end.

вот так попробуй

PS в строке точно больше 2х слов? А пробелы есть? ибо вот тут while s[i]<>' ' do идет проверка на пробел

[Don Karleone]

bles
Я набрал свой код в паскале и у меня все нормально работает!!!

[bles]

Угу ввожу строку например три слова через пробел и программа зацикливается...
Так тоже не получается ,(

[bles]

Спасибо все получилось)