Подскажите, не получается:1.составить программу для вывода на экран символов + расположив их в столбец.
Вот что получилось у меня:
program pr1;
var s:string;
i:integer;
begin
i:=43;
writeln ('vvedite simvols');
readln;
while (i<43) and (i>43) do
begin
writeln (chr(i));
readln;
begin
for i:=43 to length(s) do
writeln (s[i]);
end;
end;
end.


Программа ошибок не находит, но и результат не выдает, вроде сделала, как объясняли, а что не так не пойму.