Pascal ABC(нарисуйте пожалуйста блок-схему, очень нужно)

[Deril]

function ToDec(n:string;r:byte):integer;
var m,i:integer;
const digit:string[16]='0123456789ABCDEF';
begin
m:=0;
//while n[1]='0' do delete(n,1,1);
for i:=1 to length(n) do
m:=m*r+pos(n[i],digit)-1;
ToDec:=m;
end;
{осоновная программа}
var cs:byte;
st:string;
begin
writeln('Введите из какой сс');
readln(cs);
writeln('Введите число в соответствии с сс');
readln(st);
writeln(ToDec(st,cs));
end.

[Deril]

помогите пожалуйста

[ZX Spectrum-128]

http://soft.oszone.net/program/10450/FCEditor_NET/