помогите дописать программу

[starry_night]

не могу вставить в свою программу условие,что каждое четное слово строки заменить его восьмеричным кодом,а каждое не четное слово строки заменить его двоичным кодом.
первая часть задачи,к которой уже написана программы выглядит так:Каждая строка текстогого файла List01.TXT содержит слова,разделенные одним или несколькими пробелами.Создать новый файл List02.TXT оставив по одному пробелу между словами в каждой строке исходного файла и заменив прописную букву первого слова строки на заглавную.в конце каждой строки поставить точку.

а выше была вторая часть задачи.


так выглядит,то что у меня уже есть:

program files;
var s,t,ss:string;
f,g:text;
i:integer;
c:char;
begin
assign(f,'list01.txt');{svyzvivaem faylovuy peremennyu s nazvaniem file}
{$I-}
reset(f);{otkrivaem file dlya chteniya}
{$I+}
if IOResult<>0 then{esli ne otkrilsya}
begin
writeln('File list01.txt ne nayden!');
readln;
exit;{vyhod}
end;
assign(g,'list02.txt');{svyzvivaem faylovuy peremennyu s nazvaniem file2}
rewrite(g);{otkrivaem file dlya zapisi}
while not eof(f) do{do konca file1}
begin
readln(f,s);{schitivaem stroku}
ss:='';
t:='';
for i:=1 to length(s) do{do konca dlini}
if (s[i]=' ')and(t<>'') then{esli probel}
begin
ss:=ss+t+' ';{pribavlyaem k novoy stroke}
t:='';{delaem slovo pustim}
end else
if s[i]<>' ' then
t:=t+s[i];{nakaplivaem sled slovo}
if t<>'' then
ss:=ss+t;
c:=UpCase(ss[1]);{preobrazovanie v zaglavnuy bukvu}
delete(ss,1,1);{udalit perviy simvol}
ss:=c+ss+'.';{pribavlyaem 1 bukvu + stroku i stavim tochku v konec}
writeln(g,ss);{vyvod v file2}
end;
close(f);
close(g);
writeln('File list02.txt sozdan!');
readln;{gdem nagatiya klavishi}
readln;
end.