Кто знает почему while со строками и с числами работает по разному ? Или я чего-то не вижу
while Length(st) < 1 do
begin
writeln('Please, input a string');
read(st);
end;
этот цикл с длиной строки st не прекращает выполнять вывод строки writeln('Please, input a string'); и не даёт написать новую строку
while ((n < 0) or (n > 50)) do
begin
writeln('Please, input acceptable quantity of elements in array S[1..n], in which max n = 50');
readln(n);
end;
а у этого цикла с всё нормально, он один раз пишет и один раз даёт мне ввести новое значение