Ошибка: ожидался идентификатор

var
  a:array of array of Integer;
  n,x,i,j:integer;
begin
   Write('N='); Readln(n);
   SetLength(a,n,n);
   x:=n;
 
   for i:=0 to n-1 do
    begin
      for j:=0 to n do
        begin
          if (x>n) then a[i,j]:=0
          else
           begin
            a[i,j]:=x;
            x:=x+1;
           end;
        end;
      x:=n-i-1;
    end;
   for i:=0 to n-1 do
   begin
     for j:=0 to n-1 do
     begin
       write(a[i,j],' ');
     end;
   Writeln;
   end;
Readln;
end.

a:array[1..100,1..100] of integer;

for i:=0 to n-1 do
    begin
      for j:=0 to n do

for i:=1 to n-1 do
    begin
      for j:=1 to n do

var
  a:array[1..100,1..100] of Integer;
  n,x,i,j:integer;
begin
   Write('N='); Readln(n);
 
   x:=n;
 
   for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          if (x>n) then a[i,j]:=0
          else
           begin
            a[i,j]:=x;
            x:=x+1;
           end;
        end;
      x:=n-i-1;
    end;
   for i:=1 to n do
   begin
     for j:=1 to n do
     begin
       write(a[i,j],' ');
     end;
   Writeln;
   end;
end.

var
  a:array[1..100,1..100] of Integer;
  n,x,i,j:integer;
begin
   Write('N='); Readln(n);
 
   x:=n;
 
   for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          if (x>n) then a[i,j]:=0
          else
           begin
            a[i,j]:=x;
            x:=x+1;
           end;
        end;
      x:=n-i;
    end;
   for i:=1 to n do
   begin
     for j:=1 to n do
     begin
       write(a[i,j],' ');
     end;
   Writeln;
   end;
end.

uses crt;
var a: array [1..100,1..100] of integer;
   n,i,j: integer;
begin
write('n=');
readln(n);
a[1,1]:=n;
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        if i=j then a[i,j]:=n else
           if (i>1) and (i>j) then a[i,j]:=a[i-1,j]-1 else
              a[i,j]:=0;
        write(a[i,j]:3);
        end;
    writeln;
    end;
end.

uses crt;
var f1:text; S:string;  i,c:integer;
begin
assign(f1,'D:\Documents and Settings\Admin\Рабочий стол\Текстовый документ (2).txt'); // тут свой пусть к файлу
reset(f1);
readln(f1,s);
writeln(s);
writeln;
for i:=1 to length(s) do
  if s[i]='.' then c:=c+1;
close(f1);
write('В тексте ',c,' предложений');
 
end.