строки

[ASYA2012]

заданы м строк символов которые вводятся с клавиатуры напечатать все центральные буквы слов нечетной длины

Program My;
uses crt;
var a:array[1..100]of string[100];m,i,p:integer;
begin
writeln('vvedite kolichectvo ctrok ne bolshe 100');
readln(m);
if(m<=0) or (m>100) then write('oshibka vvoda')
else begin
for i:=1 to m do begin writeln('vvedite clovo'); readln(a[i]);end;
for i:=1 to m do begin p:=length(a[i]);
if(p mod 2)=1 then write(a[i][(p div 2)+1]);end;
write('-centralnie cimvoli');
end;
end.


вот моя программа.на винде все отлично,а на линуксе,на котором я ее сдавала,если пишешь слово русскими буквами,программа их не распознает.из-за этого мне сказали,что программа неправильная и ее нужно писать вообще без употребления массива.помогите пожалуйста,я со строками вообще не дружу