var
    odp : byte;
    klucz : byte;
    ciag : string;
    ciag2 : string;
    wynik : string;
    i,j : byte;
 
begin
    repeat
        writeln('Wybierz : ');
        writeln('1. Kodowanie/Odkodowanie');
        writeln('0. Wyjscie');
        readln(odp);
 
        if odp = 1 then begin
            writeln('Podaj ciag znakow do zakodowania');
            readln(ciag);
            writeln('Podaj klucz (1-255)');
            readln(klucz);
            j := 0;
            wynik := '';
            for i := 0 to (length(ciag) div klucz) do begin
                for j := klucz downto 1 do begin
                    if ord(ciag[(i*klucz) + j]) <> 0 then
                    wynik := wynik + ciag[(i*klucz) + j];
                end;
            end;
 
            writeln;writeln('Zakodowany ciag : ');
            writeln(wynik);writeln;
        end;
 
    until odp = 0;
end.