Hogyan tudom ezt megcsinálni Free Pascalban?

Pl így:

program madosik;

uses crt;

var szoveg: string;

i : byte;

begin

clrscr;

write('Írjon be egy szöveget: ');

readln(szoveg);

i:=2;

repeat

write(szoveg[i]+' ');

inc(i,2);

until i>=length(szoveg);

writeln;

writeln('Kilépéshez nyomjon meg egy gombot');

Readkey;

end.

Ha magyarázatot is kérsz, adhatok azt is :D