Задачка!! Паскаль

[Mirel]

Разработать программу, в которой необходимо выполнить следующие действия:
- Описать новый тип – запись, состоящую из двух полей:
Stroka Dlina

- Ввести с клавиатуры заданную последовательность символов и записать ее в переменную строкового типа;(любое слово)
- Преобразовать строку в соответствии со своим вариантом;(все нечетные символы заменить на заглавные буквы)
- В поле записи Stroka переписать преобразованную строку, а в поле Dlina – длину этой строки;
- Вывести содержимое полей записи на экран;

[Stilet]

И что не получается?

[Mirel]

Есть два кусочка программы, но я не могу соединить их!
Так, чтобы преобразованный вариант переписывался в 'Stroky'!!

type detal=record
Stroka:string;
Dlina:integer;
end;
var detal;
Begin
d.stroka:='karakatica';
d.dlina:=10;
write('Stroka:',d.stroka,'Dlina:',d .dlina);
readln;
end.

var s:string;
begin
s:='karakatica';
writeln(s);
s[2]:=upcase(s[2]);
s[4]:=upcase(s[4]);
s[6]:=upcase(s[6]);
s[8]:=upcase(s[8]);
s[10]:=upcase(s[10]);
write(s);
readln;
end.