Расшифровать пароль - Turbo Pascal

Формулировка задачи:

Ребят, помогите, пожалуйста. Вот, собственно, условие:

Спойлер

Мой код

program abc;
Var a,aa,aaa: array [0..100,0..100] of longint; i, j, n, k, b, c, ma, mk, a1, a2, a3, a4,kl: longint;   ke: array[1..100000] of longint;       f1, f2: text;   l: char;    s,sl,s1: string;
Begin
Assign(f1,'input.txt');
Reset(f1);
Assign(f2,'output.txt');
Rewrite(f2);
Readln(f1,n);
 
Repeat Read(f1,l); k := k + 1; until eoln(f1);    close(f1); reset(f1); Readln(f1,n);
 
for i:=1 to n do begin
Readln(f1,s); for ma:=1 to length(s) do begin if s[ma] = '?' then s[ma] := '0';
Val(s[ma],a[i,ma],c); end; end;
 
for i:=1 to k do begin
for j:=1 to n do begin
aa[i,j] := a[j,i]; Write(aa[i,j]); end; Writeln; end;
 
for i:=1 to k do begin  a1:=0;
for j:=1 to n do begin
if (aa[i,j] = aa[i,j+1]) or ((aa[i,j] <> aa[i,j+1]) and (aa[i,j+1] = 0)) then a1 := a1 + 1; if a1 = n then Write(aa[i,j]); end; end;
 
close(f1);
close(f2);
end.

Я, короче, попытался переворачивать массив, чтобы вместо строчек были столбики, а вместо столбиков - строчки. Потом, я подумал, что можно сделать, типа, если все элементы строчки(бывшего столбика) равны, выводить один из элементов строчки, иначе - пока ничего не делать. Так вот, этот код работает только для полностью известных паролей типа: 555; 557. В моем случае он выбьет 55, что, в принципе, правильно. Только вот я никак не могу додуматься, что мне делать, если одним из элементов пароля будет '?'? Я попытался переводить его в '0' и записывать в массив, а что дальше - вообще без понятия. Как сделать так, чтобы если в строке двумерного массива были только нули и одинаковая цифра (005050, например), выводить эту цифру на экран? В остальном я попробую разобраться самостоятельно. Ребят, пожалуйста, срочно надо, помогите, а.

Решение задачи: «Расшифровать пароль»

Листинг программы

var
  n,i,j,l,k:integer;
  s:array[1..1000] of char;
  c:char;
begin
  for l:=1 to 1000 do s[l]:='?';
  readln(n);
  for i:=1 to n do begin
    j:=0;
    while not eoln do begin
      read(c);j:=j+1;
      if s[j]='?' then s[j]:=c else 
      if (s[j]<>c) and (k=0) and (c<>'?') then k:=i;
    end;
   readln;
    end;
  if k>0 then writeln('no,',k) else
  for i:=1 to j do write(s[i]);
end.

Объяснение кода листинга программы

Создается переменная n, которая представляет собой целое число.
Создается массив s типа array[1..1000] of char, который будет использоваться для хранения символов.
Создается переменная c, которая также является символом.
Заполняется массив s симвомами '?'.
Считывается значение переменной n.
Запускается цикл for, который выполняется n раз.
Внутри цикла создается переменная j, которая инициализируется значением 0.
Запускается вложенный цикл while, который выполняется до тех пор, пока не будет достигнут конец строки (eoln).
Внутри вложенного цикла считывается символ и увеличивается значение переменной j на 1.
Если символ в массиве s равен символу, введенному пользователем (c), то этот символ заменяется на введенный.
Если символ в массиве s не равен символу, введенному пользователем, и при этом значение переменной k равно 0, а символ введенного пользователем не является символом '?', то значение переменной k устанавливается равным значению переменной i.
После окончания вложенного цикла while считывается значение переменной n и выполняется вывод на экран.
Если значение переменной k больше 0, то выводится сообщение no,, за которым следует значение переменной k.
Для каждого символа в массиве s, начиная с индекса i и до конца массива, выводится этот символ.