Вырезать буквы из слова на Basicе

[TeHno LIvE]

Задание
Дано слово.Если его длина нечётная то удалить среднию букву, в противном случае - две средних буквы.


Посмотрите код., удаляет почему-то последнию, не смотря на то какое слово.

CLS
Print "Введите слово"
input "",t$
f=LEN(t$):
for i=1 to (f-1)
a$(i)=mid$(t$,i,1)
next i
If (f-1) Mod 2<>0 then
for a=((f-1)/2-1) to (f-2)
a$(i)=a$(i+1)
next i
end if
for i=1 to (f-1)
? a$(i):
Next i

[TeHno LIvE]

на паскале выглядит так


uses crt;
var st:string;

begin
clrscr;
write('-> ');
readln(st);
if length(st) mod 2 =1 then delete(st,length(st) div 2 + 1,1) else delete(st,length(st) div 2, 2);
writeln(st);
readln;
end.