Вывести на экран текст, который вводится пользователем, так, что бы он занимал 30% экрана, шрифт выбирает пользователь через меню. Проверить верность установки шрифта...

Размер текста в пикселях:
Ширина (приблизительно) - Length(text)*TextWidth(text[1])
Высота - TextHeight(text[1]) в зависимости от шрифта
Далее узнаем, какими должны быть новые ширина и высота
30% От GetmaxX и GetmaxY
Ну и установив масштабные коэфиициенты в SetUserCharSize. получаем искомое.

Помогите разобраться... Как сделать так что бы любой введённый текст(даже одна буква) занимала 30% экрана, и как менять шрифт.
Желательно функции или алгоритмы.

шрифт меняется через

Procedure SetTextStyle(Font, Direction: Word; CharSize: Word);

читай в Help-е Паскаля...

А вот темы ты напрасно дублируешь...

Прошу прощения, просто я в отчаянии...
Но как сделать чтобы текст занимал 30% экрана?

Тебе же Ozzя ответил уже...

endless
Тебе алгоритм нужен или готовая программа?

Алгоритм, далее я думаю что как-нибудь разберусь. Но и от программы не отказался бы

endless
Так алгоритм я же тебе дал. Что непонятно в нем? Смысл действий понятен?
Спрашивай.