в последней строчке ошибка! почему?? (Pascal)

[-=t-r-a-s-h=-]

program prog;
var a: string;
b,i:integer;
begin
b:=1;
write ('vvedite slovo');
Readln (a);
for i:=1 to length(a) do
    begin
    if a=' ' then i:=i+1;
    write(a[i]);
    if b mod 3 = 0 then readln ;
    b:=b+1;
    end;
readln;
end.

[DomiNick]

Попробуйте писать

readln();

Некоторые версии могут на такое ругаться...

[-=t-r-a-s-h=-]

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

Попробуйте писать

readln();

Некоторые версии могут на такое ругаться...

неа, не ругается! =)) но всё равно ошибка в последней строчке!
всё вроде правильно а выдаёт ошибку!

[Stat_ya]

program prog;
var a: string;
b,i:integer;
begin
b:=1;//  определено значение b
write ('vvedite slovo');
Readln (a);
for i:=1 to length(a) do
begin
if a=' ' then i:=i+1;
write(a[i]);
if b mod 3 = 0 then readln ;// причем тут b? и что ты пытаешься вывести??? в любом случае условие проскакивает, так как b:=1
b:=b+1;//в итоге b:=2  и ты это никуда не вводишь и не выводишь..
end;
readln;
end.

[-=t-r-a-s-h=-]

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

а readln это так сказать переход на след строку

а перем b это чтото вроде счётчика

[Anatole]

а readln это так сказать переход на след строку

Лучше Writeln, тогда переведётся строка и не будет необходимости давить <Enter> А какую ошибку выдаёт?

[Stilet]

Во-первых:

if a=' ' then i:=i+1;

Не рекомендуется (читай "Нельзя") менять итератор цикла без его ведома.
Если нужен перескок то лучше замени FOR на WHILE

Во-вторых:Все работает как часы.