Дана строка. Преобразовать в ней все прописные латинские буквы в строчные.(Pascal)

var a:string; i:integer;beginread(a);for i:=1 to length(a) do beginFif a[i] in ['a'..'z'] then a[i]:=UpCase(a[i]) end;writeln(a);end.