Другой пример:

Решим задачу: "Введенную строку вывести на экран по одному символу в строке экрана".

Program Str2;

Var

S : String;

I : Byte;

Begin

Writeln('Введите строку');

Readln(S);

For I:=1 to Length(S) do {организуем цикл, начиная с первого символа}

Writeln(S[I]) {строки, до последнего (номер последнего} {совпадает с количеством символов строки S) }

End.

4