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

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

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

[Krjuger]

ЭМ вообще то для этого надо создавать новые темы,а не делать свалку из одной, затем, чем можно пользоваться? Условиями можно?Во вторых, у вас неправильный принцип построения программы, сначала вы должны получить все 4 параметра о человеке, а уж потом начать проверять.

program qu_1;
uses crt;
var
Married,Blond,Male,Employed:boolean;
a1,a2,a3,a4,a5:boolean;
a,b,c,d:char;
begin
Married:=True;
Blond:=True;
Male:=True;
Employed:=True;
writeln('Married?я ?[y/n]');
Readln(a);
Married:= a = 'y';
writeln(Married);
Writeln('Blond?[y/n]');
readln(b);
Blond:= b = 'y';
writeln('Male?[y/n]');
readln©;
Male:= c = 'y';
writeln('Employed?[y/n]');
readln(d);
Employed:=d='y';
a1:= Married and not male;
Writeln('Married women: ',a1);
a2:= not Married and male;
Writeln('Not married men: ',a2);
a3:= not Married and Blond;
Writeln('Not Married Blond: ',a3);
a4:= Not Employed and not Married and not male;
Writeln('Not Work Not Married women: ',a4);
a5:= (Not Married and not Employed) or Not Married or not Employed;
Writeln('Number 5: ',a5);
readln;
end.

Твоя же работа,только доведенная,но я не проверил, все возможные варианты,так что проверь,если что то не сработает,говори,но вроде все должно быть норм.