10. Проверить является ли данная строка шестизначным числом, записанным в десятичной

Сначала проверим, сколько вообщем знаков содержит введенная строчка. Если их будет больше, чем 6 либо меньше, чем 6, будем останавливать метод и выводить сообщение об ошибке.
Если их будет ровно 6, отделим 1-ый знак и осмотрим его. По условию задачки в старших разрядах не должно содержаться нулей.
Если 1-ый символ не ноль, выводим известье о том, что строчка шестизначное число.
var perem:string;
begin
if length(perem) lt;gt; 6 then
writeln(В строке не шесть символов!)
else
if perem[1] lt;gt; 0 then
writeln(Число является шестизначным);
end.