function strint(s : str) : integer;
var i, garbage : integer;
begin
val(s,i,garbage);
strint := i
end;


procedure intstr(i : integer; var s : str);
begin
str(i, s);
end;