Дано натуральное число. Верно ли, что первая цифра не превышает 6? (Нужна программа Паскаль!!!!!)!!!!!!!!!!

program picaso; uses crt;var s:string; x,cod:integer;begin clrscr;  write('Vedite cislo: ');readln(s);  val(s[1],x,cod);  if x < 6 then writeln('verno!!! :',x,' < 6');  readkey;end.