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

вообщем задание такое нужно из строки взять только цифры и перевети полученную строку в числовой тип, функцию 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.

здесь в последнем шаге, где разность орд он должен выводить то же число, что и в строке но в числовом виде но он какую то хунту выводит)

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

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

а не нифига (