Srodkowy Znak, zmienna dynamiczna

Witam mam programik ktory czyta srodkowy znak wpisanego ciagu:

var
ciag :string;

procedure Srodkowy(ciag :string);

begin
if (length(ciag) mod 2) = 0 then
write('Nie ma elmentu srodkowego!')
else
write(ciag[(length(ciag) + 1) div 2]);
end;

begin
write('Podaj ciag znakow: ');
readln(ciag);
Srodkowy(ciag);
readln;
end.

I mam taki problem czy moglby ktos napisac jak ma wygladac taki sam programik tylko z wykorzystaniem Zmiennej Dynamicznej pewnie to jest proste ale takie mam zadanko a jestem zupelnie zielony w temacie z gory dziekuje za odp i pozdrawiam.

Do czego mialaby byc wykorzystana ta zmienna dynamiczna?

tzn chodzi o to aby ten program tak zmienic zeby (jak sie da tak zrobic) opieral sie na zmiennej dynamicznej