Написать программу, заменяющую в тексте все прописные латинские буквы на строчные — Pascal(Паскаль)

Var 
s: String;
i: byte;
Begin
  writeln('Введите текст:');
  readln(s);
  s:=LowerCase(s);
  writeln('Результат: ', s);
  readln;
End.