Задачи на строки,множества и записи

Задача 1.Дана последовательность от 2 до 30 слов,в каждом слове от 2 до 10 букв,между соседними словами 1 пробел,за последним точка.Напечатать все слова,отличаюшиеся от последнего слова,предварительно преобразовав каждое удалив из слова 1 букву.заранее спасибо.
Задача 2.Даны описания переменных.
type gorod=(a,b,c,d,e,f,g,h);
goroda=set of gorod;
reysi=array[gorod] of goroda;
описать процедуру "можно попасть(Р,Н,К)" которая по рейсам P(P[x]-множество городов в которые можно попасть за один рейс доехав на автобусе из города Х)определяет К-множество городов в которые можно попасть из города Н.
Задача 3.Снова даны описания
type slovo=packed array[1..9] of char;
nomertelefona=100000..9999999;
znakomyi=record
familiya:slovo;
nomer:nomertelefona;
end;
stranica=array[1..20] of znakomyi;
zapisnayakniga=array['a'..'z']of stranica;
считая,что на каждой странице записной книжки указаны фамилии,начинаюшиеся с одной и той же буквы,описать функцию "номер(ЗП,Ф,НТ)"-определить,если ли в записной книге ЗП сведения о знаке с фамилией Ф,и если есть присвоить параметру НТ номер его телефона.
Если кто поможет буду премного благодарен.

0