uses crt;
var z:char;
    pozice:integer;
    b:string;
begin
repeat
clrscr;
writeln('Trtkal 2008 - http://fei.trtkal.net');
writeln('-----------------------------------');
     write('Zadej retezec k prepracovani: ');readln(b);
     repeat
     pozice:=pos('  ',b);
     delete (b,pozice,1);
     until pozice=0;
     writeln(b);
writeln('----------');
write('Opakovat a/n: ');readln(z);
until (z='n');
end.