единичность матрицы и 3 одинаковые цифры Опции

[LP.by]

нада срочна 2 задачки,
1. Дана квадратная матрица А, порядка n. Проверить является ли она единичной.
вот я к ней цикл сделал:

for i : = 1 to n do
 if a[i,i] = 1 then begin
   a[i,i] : = 0;
 for j : = 1 to n do
  if a[i,j] <> 0 then begin
 Writeln('matriza edini4na')
else
 Exit;

плз нада её аформить.

2. Дано n-значное число Р. Верно ли что оно содержит 3 одинаковые цифры??

а па поваду втарой задачки я не знаю

[мисс_граффити]

я вижу, что она не компилируется.
...что вполне естественно:

a:integer;
...
readln(a[i,j]);

ты думаешь, компилятор должен догадываться, что ты хотел сделать?

тогда не забывай про директиву компилятора {$Telephaty} (подключает поддержку телепатии). Тогда переменные можно вообще не объявлять...