помогите плз с задачей в Delphi

[jellyfish]

задача такова:
дано натуралне число N кол-во цифр в котором не меньше 4.
равно ли произведение двух первых цифр произведению двух последних

З.Ы. очень нужна программа...

[eoln]

read(q); // вводим число
s := inttostr(q);
a := strtoint(copy(s, 1, 1);
b := strtoint(copy(s, 2, 1);
z := strtoint(copy(s, length(s), 1);
y := strtoint(copy(s, length(s)-1, 1);
if a*b = z*y then ...