Считая, что каждый символ кодируется 1 байтом, определите информационный объем в байтах фразы: певец-давид быд ростом мал, но повалил же голиафа!

Var s: string;
k: integer;
Begin
Write ('Введите Ваше предложение: ');
read(s);
k := length(s);
Write ('Размер: ',k);
End.