Program String_Test;
var s, w:string;
procedure DelSp(var S:string);
begin
while (S[length(s)]=' ') and (length(S) > 0) do
delete(S,length(S),1);
while (S[1]=' ') and (length(S) > 0) do
delete(S,1,1);
end;
function GetWord(var S: string):string;
var W:string;
begin
DelSp(S);
if Pos(' ',s) > 0 then
begin
W:=Copy(S,1,Pred(Pos(' ',S)));
S:=copy(S,Succ(Pos(' ',S)),255)
end
else
begin
W:=S;
S:=''
end;
GetWord:=W;
end;
begin
2. Текст задан строкой s:string.
а). Написать программу, которая выводит все слова, содержащие букву 'a'.
б). Написать программу, которая выводит все слова, цифр в которых больше, чем букв.
3. Напишите следующие программы:
а). Напечатать только строчные русские буквы, входящие в строку.
б). Составить функцию UpcaseCyr(W:string):string, преобразующую все буквы, входящие в строку W в прописные.