обработка текста в паскале

[violettta]

Привет.. помагите испарвить задание??
Вот задание :
Составить программу которая вводит текст и печатает его вводя + после каждого второго симбола.

как сделать , чтоб когда пишу текст с нечетными числом букв стоял тоже плюс в конце??

 program p2;
uses crt;
var txt :string;
i:=integer;
begin
clrscr;
write(' txt := ');
readln(txt);
for i:= 1 to lenght(txt) do
if ((i mod 2 )= 0 )then 
write (txt [i],'+');
else
write (txt[i]);
readln;
end.

Оформляем код правильно!!!

[alex_fcsm]

Сообщение от violettta

как сделать , чтоб когда пишу текст с нечетными числом букв стоял тоже плюс в конце??

if length(txt) mod 2 = 1 then write('+');