Программа которая переводит десятичное число в восьмеричное паскаль

Var a, i, b, r:integer;

s, se:string;

begin;

readln (a) ;

repeat

b:=a mod 8;

a:=a div 8;

str (b, se) ;

s+=se;

until (a<=7) ;

str (a, se) ;

s+=se;

for i:=1 to length (s) div 2 do

begin;

se:=s[i];

s[i]:=s[length (s) - i+1];

s[length (s) - i+1]:=se[1];

end;

val (s, r, a) ;

write (r) ;

end.