ошибка в коде

[ROMA2PVT]

writeln('Строка состоит из '+i+' символов');

вот так будет

writeln('Строка состоит из ',i,' символов');

[Pytnik]

во, теперь хорошо работает, тока почемуто быстро с экрана исчезает, хотя readln; я написал

[ROMA2PVT]

А чё Alt+F5 нерулит.

[Pytnik]

Я даж не подозревал об этом))) и всёже, как заставить окошко не изчезать ?

[ROMA2PVT]

в исходнике zumm'a вот так

program str;
Uses
   CRT;
var
 s: string;
 i: integer;
begin
 writeln('Введите строку:');
 read(s);
 s:=s+' ';
 while s[i]<>' ' do
  inc(i);
 dec(i);
 writeln('Строка состоит из ',i,' символов');
 readkey;
end.

[Pytnik]

Ура Сасибо всем

[zumm]

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

writeln('Строка состоит из '+i+' символов');

вот так будет

writeln('Строка состоит из ',i,' символов');

Вот что значит в делфи заработался)))

[Serge_Bliznykov]

program str;
var
 s: string;
begin
 writeln('Введите строку:');
 readln(s);
 writeln('Строка состоит из ',length(s),' символов');
 readln;
end.

[zumm]

хех) так не интересно, мало букаффок)

[Serge_Bliznykov]

хех) так не интересно, мало букаффок)

Зато, в отличие от предыдущего кода, работает правильно!