Строка представляет собой запись целого числа. Составьте программу ее перевода в соответствующую величину целого типа

Var s:string;
    n,k:byte;
Begin
    write('Строка = ');readln(s);
    Val(s,n,k);
    writeln('Число = ',n);
    readln;
End.