1) Написать программу, генерирующую случайное целое число от -1000 до 1000. Пользователь должен вводить

целые числа, пока не «угадает» это число. Каждый раз,

при вводе, программа сообщает, что «загаданное»

больше или меньше, чем введенное.

2)Пользователь вводит символ, а затем 10 слов, вывести

эти слова через указанный символ (и пробелы) в:

a. прямом порядке через слово;

b.Первые 5 слов в обратном порядке.

3)Пользователь вводит 10 чисел. Вывести *

текущее» (Когда пользователь вводит первое число,

будет​

Program sport;
var h1, m1, s1, h2, m2, s2, h, m, s, st, fin, p, i : integer;
begin

writeln('Старт.');
write('Количество часов ');
read(h1);
write('минут ');
read(m1);
write('секунд ');
read(s1);

st:=s1+m1*60+h1*3600;

writeln('Финиш.');
write('Количество часов ');
read(h2);
write('минут ');
read(m2);
write('секунд ');
read(s2);

fin:=s2+m2*60+h2*3600;

p:=fin-st;

i:=p;

s:=p mod 60;

p:=p div 60;

m:=p mod 60;

p:=p div 60;

h:=p mod 60;

writeln('Итог - ',h,' часов ', m,' минут ',s,' секунд ');
write(' Всего ',i,' секунд.');

end.

Только сегодня начал учить Паскаль и заметил у вас кучу ошибок. Вы сделали очень много лишних действия, и непонятно, чему равны переменные molod и sredny? А если это строки, то b и а тоже должны быть строковыми.  Я бы сделал так

program haracteristy;  

uses crt;

var vozrast: Integer;

begin  

clrscr;

writeln ('Введите свой возраст');  

read (vozrast);  

if (vozrast >0) and (vozrast <18) then  

write ('Вы еще очень молоды')

else if vozrast >18 then

write ('Вы в расцвете сил')

else  

write('Ошибка! Возраст не может быть меншье нуля');

end.