Составить программу перевода строки, представляющей собой запись целого положительного числа, в соответствующую величину целого типа (не используя процедуру VAL) СИ

Предыдущий
вопрос Следующий
вопрос

VAR
str: STRING;
num, i, digit, res: INTEGER;

BEGIN
WRITE('Введите число в виде строки: ');
READLN(str);

num := 0;
FOR i := 1 TO LENGTH(str) DO
BEGIN
digit := ORD(str[i]) - ORD('0');
IF (digit < 0) OR (digit > 9) THEN
BEGIN
WRITELN('Ошибка: введен некорректный символ');
EXIT;
END;
num := num * 10 + digit;
END;
WRITELN('Число в целом типе: ', num);

END.