Решение Задачи к учебнику Ушаков,Юркова, Помогите с решением задачи Опции

[Дмитрий Ильин]

Доброго времени суток,начал изучение Pascal неделю назад,были кое-где вопросы,где непонятки,где-то решал сам,где помогали соседи,интернет.
Но тут все гораздо сложнее*
(!) смотрите вложение
Урок 3.2. по задаче мы должны написать программу которая из 3 строчек,выберет несколько,определенно запрограммированных букв,затем по алфавиту поменять их на N количество в лево/право,НО^
!)нам надо ввести 3 строчки
FINISHED
OR
PENDING?
а уже в каждой из строчек выбрать первую букву,в другой строчке вторую букву,и ее уже редактировать(менять на 1-2 пункта влево/право по алфавиту)
И в итоге таких манипуляций на выводе должно быть слово DONE
2) Пока что из книги,я могу менять только символы занесенные в переменную(Char),т.е. 1 символ,а тут целое слово,алгоритма деления слова на буквы,занесения каждой буквы в ячейку(это вроде дальше-массивы),и уже из массивов выдирать те символы что нам необходимы.
Вопрос
Так все таки как написать такую программу?
Или все эти 3 строчки я не должен вводить в программу?(Readln(x1)) ?
Не думаю что тут дойдет до массивов,т.к. я прошел только переменные,константы,умножение,деление,остатки,и даже до условия(If else ) еще не дошёл ,как быть?Буду благодарен за ответы,надеюсь я не такой "непробиваемый"
спасибо
_______________________________________________________
* - возможно я немного не понял поставленной задачи

[Дмитрий Ильин]

ок,вот еще пара вопросов
1)А если мне нужно 6 символ от слова?6тую букву из слова,мне придется прописывать

a,b,c,d,e,f6:char;
Readln(a,b,c,d,e,f6); и только потом использовать мой f6 символ?
2) эту тему я понял,перешел к булевым выражениям,встал на задаче 4.1
вот собственно задача

Задание 4.1. Определите в программе 4 логических переменных, которые содержат следующую информацию о людях:
Married — «истина», если человек женат (замужем),
Blond — «истина», если у человека светлые волосы,
Male — «истина», если человек — мужчина,
Employed — «истина», если человек работает.

Составьте логические выражения, с помощью которых можно определить, является ли человек:
1) замужней женщиной;
2) неженатым мужчиной;
3) незамужней блондинкой;
4) безработной незамужней женщиной;
5) либо неженатым, либо безработным, либо и тем и другим.

у меня получается только два первых действия,а код занимает уже весь экран

Код

program qu_1;
uses crt;
var
Married,Blond,Male,Employed:boolean;
a1,b1,c1,d1:boolean;
  a,b,c,d:char;
begin
Married:=True;
Blond:=True;
Male:=True;
Employed:=True;
       writeln('Вы замуженяя ?[y/n]');
              Readln(a);
Married:= a = 'y';
           writeln(Married);
       Writeln('Вы неженаты?[y/n]');
              readln(b);
       writeln('Вы мужчина?[y/n]');
              readln(c);
Married:= b = 'y';
male:= c = 'y';
a1:=married and male;
       Writeln('вы неженатый мужчина? ответ: ',a1);


end.

и это только 2 действия,да и нелогично + надо как-то код упростить,а я немного не понимаю -как.Поможете?