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.