Спасибо за подсказку в будущее.Я ещё не дорос до понимания, но буду помнить.


[quote="Иван Кузьмицкий"]Хотелось бы уточнить - строк как таковых нет. Есть массивы, иногда интерпретируемые как цепочки литер (если есть $).
/quote]


Этим вариантом мне получается создать массив из символов
MODULE Cp10String8;
IMPORT L := StdLog, In;
PROCEDURE Do*;
VAR  	n, i : INTEGER;
s : ARRAY 10 OF CHAR;
c : CHAR;
BEGIN
L.Clear;
FOR  i := 0  TO 4 DO
s[0] := '#';  s[1] := "g";  s[2] := 'j';  s[3] :='m';  s[4] := '@'; END;
FOR  i  := 0   TO 4   DO L.Char(s[i]); END;L.Ln;
END Do;
END Cp10String8.
Cp10String8.Do

Этим вариантом мнене получается создать массив из символов
MODULE Cp10String8;
IMPORT L := StdLog, In;

PROCEDURE Do*;
VAR   i,n : INTEGER;
s : ARRAY 20 OF CHAR;
c : CHAR;
BEGIN
In.Open;  In.Char(c); L.Clear;
FOR  i  := 0   TO 4   DO In.Char(s[i]); END;L.Ln;
FOR  i  := 0   TO 4   DO L.Char(s[i]);END;L.Ln;
END Do;
END Cp10String8.
Cp10String8.Do   @ j y # w