Паскаль: string

[Студент ММИ]

Написать программу, которая проверяет, является ли введенная с клавиатуры последовательность символов записью двоичного или шестнадцатеричного числа. Если это так, вывести соответствующее сообщение и запись числа в десятичной системе счисления.

Програмка, сразу пишет 0

program AAAAAAAA;
var s: string;
N,k,b,d,m,a:longint;
Code:integer;
function step(x:integer):longint;
var i:integer; st:longint;
begin
if x=0 then step:=1 else
begin
st:=1;
for i:=1 to x do begin
st:=st*2;
step:=st;
end;end;
Begin;
Writeln('Azaza');
Readln(s);
while Pos(' ',s)>0 do Delete(s,1, Pos(' ',s));
val('$'+s, N, Code);
if Code<>0
then writeln('Tu lox!!!!')
else writeln('Eto chislo =',N);
val(s,N,Code);
m:=0;
k:=0;
m:=N;
repeat
b:=a mod 10;
d:=a div 10;
m:=m+b*step(k);
k:=k+1;
a:=d;
until d=0; End;End; BEgin
writeln('s 2 v 10 = ',d);
readln

END.

Я решил выводить сразу два значения если таковы есть в двух системах, но оно сразу выбивает 0.... и почему s:=st невозможно, когда оба значения стринговые? Помогите пл

[min@y™]

ещё в 20 разделов топик запихай!
тогда тебе лично александр друзь ответит!

[newerow1989]

и почему s:=st невозможно, когда оба значения стринговые?

var s: string;
N,k,b,d,m,a:longint;
Code:integer;
function step(x:integer):longint;
var i:integer; st:longint;