паскаль,строки

заданы м строк символов которые вводятся с клавиатуры напечатать все центральные буквы слов нечетной длины
вот что у меня получилось,даже показывать стыдно)
Program My;
var
s:string;
i,n,m:integer;
begin
write('vvedite stroky: ');
readln(s);
n:=length(s);
for i:=1 to n do
if(n mod 2)=1 then write(s[(n div 2)+1]);