Program na plikach Sprawdzający Pesel

Otóz mam problem ze sprawdzeniem peslu z wszytanych wczesniej z pliku np. pesle.txt i sprawdzenie kazdego pokolei i przypisanie tekstu

Writeln('Pesel Poprawny') lub Writeln('Pesel niepoprawny')

do innego pliku a to co udało mi sie napisać i nie moge skompilowac Error: Illegal qualifier

Uses CRT;

const n=200;

var
 plik,plik1:text;
 ciag:string;
 pesel:array [1..n]of string;
 p,y,x:array [1..n]of integer;
 l,j,i,a,q,code:integer;
 
procedure sprawdz;
Begin
for i:=1 to 150 do
    for j:=1 to 11 do 
      Begin	
     	a:=(x[i,1]+(x[i,2]*3)+(x[i,3]*7)+(x[i,4]*9)+x[i,5]+(x[i,6]*3)+(x[i,7]*7)+(x[i,8]*9)+x[i,9]+(x[i,10]*3)) mod 10;
		        writeln;
		         q:=10-a;
		    If q=x[i,11] then Writeln(plik1,'Poprawny pesel') else Writeln(plik1,'Pesel nie poprawny');
			 end;
end;
 
Begin
 clrscr;
  
  assign(plik ,'D:/txt/wczytaj.txt');
  reset(plik);
  i:=0;
  repeat
   inc(i);
   readln(plik,pesel[i]);
  until EOF(plik);
  close(plik);
  
  Writeln('W pliku było ',i,' Pesli');
  
  assign(plik1 ,'D:/txt/wprowadz.txt');
  rewrite(plik1);
   sprawdz;
  close(plik1);

  
  
 readln;
end.

x jest tablicą x:array [1..n]of integer
więc czemu odwołujesz się x[i,2]?
Co to niby ma znaczyć? Może jednak ta tablica miala mieć 2 wymiary?

racja po zmianie na x:array [1..n,1..11]of integer;
program sie skompilował lecz wszyskie pesle pokazuje ze sa niepoprawne a tak nie powinno byc