Описать, используя структуру данных запись, камеру хранения

Program primer;
Const n=3;
Type dan=record
   sh: integer;
   ind: string[20];
end;
Var kam:dan;
j,k,t: integer;
q:string[20];
S:ARRAY[1..n] of integer;
I:Array[1..n] of string[20];
Begin
Writeln('Введите данные по камерам хранения');
 For j:=1 to n do
  Begin
   Write('Шифр ',j,'-й камеры: ');
    Readln(kam.sh);
     S[j]:=kam.sh;
   Write('Индекс ',j,'-й камеры, заданный буквой:    ');
    Readln(kam.ind);
     I[j]:=kam.ind;
  end;
   k:=0;
  For j:=1 to n do
   Begin
   If (S[j]=99)Then k:=k+1;
   end;
    If k<>0 Then Writeln('Среди камер есть ',k,' камер с шифром 99');
       Writeln('Упорядоченный');
        for j:=1 to (n-1) do
         begin
          t:=0; q:='';
           for k:=1 to (n-j) do
            if S[k]>S[k+1] then
             begin
              t:=S[k];
              q:=I[k];
              S[k]:=S[k+1];
              I[k]:=I[k+1];
              S[k+1]:=t;
              I[k+1]:=q;
             end;
         end;
 For k:=1 to n do
  Writeln(S[k],' ',I[k]);
END.