var cislo,cifra,opacne:integer;
begin
cislo:= strtoint (edit1.Text);
opacne:= 0;
while cislo>0 do
begin
  cifra:= cislo mod 10;
  opacne:= opacne*10 + cifra;
  cislo:= cislo div 10;
end;
label1.Caption:= inttostr(opacne);
end;

end.