Дан массив из 6-ти слов. Длинна каждого слова не более 10-ти букв. Если слово в массиве нечётной длинны, то удалить из него 1-ю букву — Pascal(Паскаль)

uses crt;
const n=6;
var s:array[1..n] of string[10];
    i:byte;
begin
clrscr;
writeln('Vvedite ',n,' slov:');
for i:=1 to n do
  begin
   write('Slovo ',i,'  ');
   readln(s[i]);
  end;
clrscr;
writeln('Ishodnyj massiv:');
for i:=1 to n do
  begin
   write(s[i],' ');
   if odd(length(s[i])) then delete(s[i],1,1);{если нечетная (odd) длина, удаляем первую букву}
  end;
writeln;
writeln;
writeln('Izmenennyj massiv:');
for i:=1 to n do
write(s[i],' ');
readln
end.