составить из функции программу

[sllh_111]

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

вот мои нароботки(если можно их так назвать)

Function StrLower(Str: PChar): PChar;
k: Word;
begin
for k := 0 to StrLen(Str)-1 do
Str[k]:= LoCase(Str[k]);

можите написать программу без функций и процедур

[Базиля]

program zad1;
var m:set of char;
s:string;
i:integer;
begin
readln(s);
m:=['A'..'Z','А'..'Я'];
while i<=length(s) do
if s[i] in m then
delete(s,i,1)
else inc(i);
writeln(s);
end.

[sllh_111]

Базиля Спасибо!