Лаба

[Lyalichka]

Дана последовательность, в которой от 1 до 30 больших латинских букв; между соседними словами - запятая, за последним словом - точка. Напечатать эту же последовательность слов, превратив все буквы в строчные (маленькие).

Вот то, что есть:

program mlab15;
uses crt;
var s,slovo,stroka: string;
i:integer;
begin
clrscr;
write ('vvedite stroky:'); readln (stroka);
i:=1;
while s[i]<>'.' do
begin
slovo:='';
while (s[i]<>'.') and (s[i]<>',') do
begin
slovo:=slovo+s[i];
i:=i+1;
end;


if s[i]<>'.' then
i:=i+1;
end;

Я никак не могу догнать\вспомнить как перевести буквы в строчные.

[Mad_Cat]

Valid_Ch:set of char;

Valid_Ch := ['A'..'Z'];
For Location := 1 to Length(St) Do
  If St[Location] IN Valid_Ch
    Then St[Location] := CHR(ORD(St[Location]) + 32);

[Valio]

Дана последовательность, в которой от 1 до 30 больших латинских букв; между соседними словами - запятая, за последним словом - точка. Напечатать эту же последовательность слов, превратив все буквы в строчные (маленькие).

Тут без стакана не разобраться. Сначала говориться о "последовательность, в которой от 1 до 30 больших латинских букв", затем говорят про "между соседними словами - запятая, за последним словом - точка."
Так что имеется в виду?

Напечатать эту же последовательность слов, превратив все буквы в строчные (маленькие).

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

Как выглядит строка на входе и как выглядит строка на выходе?

[Lyalichka]

в общем, если при вводе строка имеет вид "mAmA,mYla,RaMY." , то при выводе она должна иметь вид "mama,myla,ramy"

[Valio]

Тогда Mad_Cat уже написал то что нужно.

[Lyalichka]

я увидела, спасибо

только, если честно, я не особо поняла, что это за переменная Valid_Ch

[Valio]

Это множество. Чтото вроде массива.. погугли.

[Lyalichka]

а)
большое спасибо)