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

[ASYA2012]

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

[IT-man]

Еще мельче картинки не нашлось?
Код запости сюда!

[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 write('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[(p div 2)+1]);end;
end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[XemyL]

Program My;
 var a:array[1..100]of string[100];
       m:integer;
       i,p: byte;
BEGIN
write('vvedite kolichectvo ctrok ne bolshe 100: ');
readln(m);

if(m<=0) or (m>100) then
begin  
   write('oshibka vvoda');
   readln;
   exit;
end;

for i:=1 to m do
begin
   write('vvedite clovo №',i,': ');
   readln(a[i]);

   p:=length(a[i]);
   if (p mod 2)=1 then
   write(a[i][(p div 2)+1], ' ');
end;
readln;
END.