program atvirksciai;

const prad= 'zodis.dat';

      pab= 'atsakymas.dat';

type zodis= string[255];

    zodziai = record

        ivedimas : zodis;

        raides: 0..255;

    end;

//---------------------------------------------------

procedure nuskaitymas (var z:zodis);

    var pr:text;

begin

    assign (pr,prad); reset (pr);

    readln (pr, z);

    close (pr);

end;

//---------------------------------------------------

procedure surikiuoja (var B:zodziai; X: char);

begin

   B.raides := B.raides + 1;

   B.ivedimas[B.raides] := X

end;

//---------------------------------------------------

function atvirkscias (var B:zodziai) : char;

begin

    atvirkscias := B.ivedimas[B.raides];

    B.raides := B.raides - 1

  end;

//---------------------------------------------------

var pr,pa:text;

    i:integer;

    z:zodis;

    b:zodziai;

begin

    assign (pa,pab); rewrite (pa);

    writeln (pa,'---------------');

    nuskaitymas (z);

    writeln (pa,'Orginalus zodis: ',z);

    writeln (pa,'---------------');

    for i := 1 to length(z) do

      surikiuoja (B, z[i]);

    writeln (pa,'atvirkscias zodis: ');

    writeln (pa,'---------------');

    for I := 1 to length(z) do

      write(pa,atvirkscias(b));

    close (pa);

end.