Дано натуральное число N найти 1ю цифру числа N — Pascal(Паскаль)

uses crt;

var
err,n,i,c,sum:integer;
s:string;

begin
write('Enter n = ');readln(n);
str(n,s);
val(s[1],n,err);
writeln('Pervaya zifra: ', n);
readln;
end.