помогите с программой на паскале

Question

вообщем задание такое нужно из строки взять только цифры и перевети полученную строку в числовой тип, функцию val использовать нельзя. 
вот прога моя 
 
program Project2; 
 
{$APPTYPE CONSOLE} 
 
uses 
 SysUtils; 
var s,s1:string; 
 i,k:integer; 
 
begin 
 Writeln('Enter the string'); 
 Readln(s); 
 for i:=1 to length(s) do 
 if (s>='0')and(s<='9') then s1:=s1+s; 
 Writeln; 
 Writeln('String made of numbers'); 
 Writeln(s1); 
 While s1[1]='0' do delete(s1,1,1); 
 Writeln; 
 Writeln('Without zeros'); 
 Writeln(s1); 
 for i:=1 to length(s1) do k:=ord(s)-ord(0); 
 Writeln; 
 Writeln('number = ',k); 
Readln; 
end. 
 
здесь в последнем шаге, где разность орд он должен выводить то же число, что и в строке но в числовом виде но он какую то хунту выводит)

блин тут ещё итовый в квадратных скобках не прописывается =_=

аааааа вроде дошло наверно надо со всей строки орд нуля вычти

а не нифига (

Юлия Борисова · Accepted Answer

решу за оплату