Задача по PASCAl. Помогите сделать.

[maia]

1.Даны шифры трех ГАИ . Определить есть ли среди них заданный . Вывести соответствующее сообщение.

2.Дана матрица . Если на главной диагонали находится хотя бы один нулевой элемент , то заменить все четные строки главной диагонали , в противоположном случае такой же замене подлежат все нечетные столбцы.

[Naeel Maqsudov]

1)

Var
s, shifr1, shifr2, shifr3:string;
begin
shifr1:='123456';
shifr2:='321312';
shifr3:='323123';
write('Введите шифр:');readln(s);
if (s=shifr1) or (s=shifr2) or (s=shifr3)
then writelen('Заданный среди них есть')
else writelen('Заданного среди них нет');
end.

2)
Что такое "нечетные строки диагонали", и на что их надо заменить?

[maia]

1)



2)
Что такое "нечетные строки диагонали", и на что их надо заменить?

не четные это 1,3,5,7,9 итд. строки поменять местами!

[Naeel Maqsudov]

Вы издеваетесь что ли?
В каком порядке будем менять строки? (значит все-таки не "строки диагонали", а просто строки) Попарно? По кругу? Если попарно, то что делать со стокой, у которой нет пары?