Ввести из клавиатуры шестизначное число, определить позицию первой цифры, которая превышает заданную цифру пользователем, и вывести ее- Pascal(Паскаль)

uses crt;
var x:Longint;
    i, c, n, j, x1, s : integer;
begin
writeln('Заданное число');
readln(s);
writeln('Шестизначное число');
read(x);
n := 5;
c := 1;
for j := 1 to n do
    c := c * 10;
j := x div c;
c := c div 10;
while (n>=1) do
begin
    x1 := j;
    j := (x div c) mod 10;
    if j + x1 > s then writeln(j,' ',x1);
    dec(n);
    c := c div 10;
end;
end.