Задачка... (Паскаль)

Код для вычитания двух длинных чисел
Но в нем есть ошибка
Прошу найти и исправить
var a,b,c:array[0..1000] of integer;
x,i,n,m,k,l,j:longint;
s1,d1,z,s,d:string;
begin
readln(s1);
readln(d1);
for i:=1 to length(s1) do s:=s1[i]+s;
for i:=1 to length(d1) do d:=d1[i]+d;
if length(s)>length(d) then n:=length(s) else n:=length(d);
for i:=1 to length(s) do val(s[i],a[i],j);
for i:=1 to length(d) do val(d[i],b[i],j);
for i:=1 to n do
begin
x:=x+a[i]-b[i]+10;
c[i]:=x;
if x