Дан текст из 60 литер. Надо без помощи функций, подпрограмм и процедур ввести свой текст из 60 литер и подчеркнуть все входящие в него заглавные и строчные русские буквы — Pascal(Паскаль)

uses crt;
const b=['А'..'п','р'..'ё'];
var s:string[60];
    i:byte;
begin
clrscr;
repeat
writeln('Введите строку из 60 символов');
readln(s);
if length(s)<>60 then writeln('Введено не 60 символов. Повторите ввод.');
until length(s)=60;
for i:=1 to length(s) do
if s[i] in b then write('-')else write(' ');
readln
end.

uses crt;
const b=['А'..'п','р'..'ё'];
var s:string[60];
    i:byte;
begin
clrscr;
repeat
writeln('Введите строку из 60 символов');
readln(s);
if length(s)<>60 then writeln('Введено не 60 символов. Повторите ввод.');
until length(s)=60;
for i:=1 to length(s) do
if s[i] in b then write('-')else write(' ');
readln
end.