read(stroka[i]);
де цикл виконується 39 разів. В обох випадках елементи приймуть наступні значення:
Stroka[1] = ’M’, Stroka[2] = ’и’, Stroka[3] = ’ ’, … Stroka[39] = ’у’.
Виведення масиву символьних елементів виконується за допомогою процедури Write.
Приклад. Дан рядок символів S1: “Я добре знаю Pascal”. Потрібно сформувати новий масив з ім'ям S2, що складається з рядка S1 з додаванням наприкінці знаку питання та знаку оклику.
typestroka = packed array[1..20] of char;
vars1,s2 : stroka; i, k: integer;
