составить программу на Pascal, которая запрашивает возраст человека, если ему 18 и больше сообщает "Замечательно, вы уже можете водить водить автомобиль", в противном случае "К сожалению вам ещё рановато водить автомобиль" ​

var
i:integer;
s:string;
const
glas=['Й','У','Е','Ы','А','О','Э','Я','И','Ю'];
beginwrite ('Vvedite predlohenie: ');
readln (s);
i:=1;
while i<=length (s) do     
begin           
if ((i=1) or (s[i-1]=' ')) and (s[i] in glas) then           
begin             
while not ((s[i] in ['.',',',';','!','?',':',' '])) and (i<=length (s)) do                   
begin                         
write (s[i]);                         
i:=i+1;                   
end;             
writeln;           
end;         
i:=i+1;     
end;
readln;
end.

1.Кто-то (пускай будет Петя)  спросил домашние задание у другого человека ( пускай будет у Васи), Вася ему ответил  и получается, что Вася передал информацию,Петя получил и использовал что бы решить домашку.
2.Живое существо своими органами чувств (глаз, ухо, кожа, язык и т.д.) воспринимает информацию из внешнего мира, перерабатывает её в определенную последовательность нервных импульсов, передает импульсы по нервным волокнам, хранит в памяти в виде состояния нейронных структур мозга, воспроизводит в виде звуковых сигналов, движений и т.п., использует в процессе своей жизнедеятельности.