Помогите решить задачу в паскале. Задание: Заменить в строке все вхождения "да" на "нет".

(******************************************
Во введенной строке программа заменяет все
"да" на "нет" в том же регистре, что и
исходное сочетание ("ДА", "да" или "Да").
-------------------------------------------
Pascal
-------------------------------------------

******************************************)
program ModifyString;
var
str: string;

(*----------------------------------------
Процедура замены "да" на "нет" в строке
-----
Регистр берем по исходному; варианты
"ДА", "да" или "Да" заменяются соответственно
на "НЕТ", "нет" и "Нет".
----------------------------------------*)
procedure Modify (var s: string);
var
srcArr: array [1..3] of string;
destArr: array [1..3] of string;
i, index: integer;
begin
{инициализируем исходные слова
и слова-замены}
srcArr[1]:='ДА';
srcArr[2]:='да';
srcArr[3]:='Да';
destArr[1]:='НЕТ';
destArr[2]:='нет';
destArr[3]:='Нет';
{заменяем}
for i:=1 to 3 do begin
index := pos(srcArr,s);
while index<>0 do begin
delete(s,index,2);
insert(destArr,s,index);
index := pos(srcArr,s);
end;
end;
end;

{основная программа}
{тестовая строка: "Да, ПОДАТЬ его сюда! "}
begin
writeln('Программа заменяет в исходной строке все '+
'вхождения "да" на "нет" в том же регистре, что '+
'и исходное выражение');
repeat
writeln('Введите исходную непустую строку: ');
readln(str);
if (length(str)<1) then
writeln('Исходная строка должна быть непустой');
until length(str)>0;
writeln('Исходная строка: ');
writeln(str);
Modify(str);
writeln('Получившаяся строка: ');
writeln(str);
writeln('Нажмите [Enter] для завершения программы');
readln;
end.

Ничего себе "почти"! Вот для "да" в нижнем регистре.

while Pos('да', S) > 0 do begin
i := Pos('да', S);
Delete(S, i, 2);
Insert('нет', S, i);
end;

Оператором ветвления как-то, я уже паскаль не сильно помню