Срочно плиз прога на паскале текст начинается с ненулевой цифры, за которой…

var s: string; k,f: longint; begin readln (s); Val (s[1],k,f); if f<>0 then writeln ('Некоректно введена строка') else if length (s) -1=k then writeln ('Равно') else writeln ('Неравно'); end.