Строковая задача на Паскале

[FanFan]

Извиняюсь,если тему завел не там или еще что-нибудь,проблема вовсе не студенческая,но сам студент.

Все очень просто,товарищ попросил помощи со строками на Паскале,сам я с синтаксисом абсолютно не знаком,но задачка проста...Суть я вроде понимаю,а как описать нет,если у кого есть время,напишите пожалуйста вот такую не сложную програмку именно на Паскале...

Цитирую товарища: "Написать программу,которая преобразует введеное с клавиатуры двоичное число в десятичное".

Заранее спасибо взявшимся.

[FanFan]

Как вы наверняка поняли, двоичное число - это строка символов (Напр. 1011011)

[j2ko]

program ToDec;
var
  s: string[255];
  dec:longint;
  step:longint; 
  i:word;
begin
  writeln('Enter binary number:');
  readln(s);
  step:=1;
  dec:=0;
  for i:=length(s) downto 1 do
  begin
    if s[i]=Chr(49) then 
    begin
     dec:=dec+step;
    end
    else if s[i]<>Chr(48) then
    begin 
       writeln('Simbol "',s[i],'" is wrong');
       readln;
       exit;
    end;
    step:=step*2; 
  end;
  writeln('Decimal number:');
  writeln(dec);
end.