Встречено 'i', а ожидалось ';'

writeln('введите координаты X Y Z 'i'й точки:');

program structure;
 type point=record
  x,y,z: integer;
  r,g,b: integer;
 end;
var
  n: array[1..10] of point;
  i,t:integer;
begin
  writeln ('введите кол-во точек от 1 до 10:' );
  readln(t);
  for i:=1 to t do with n[i] do
 begin
    writeln('введите координаты X Y Z 'i'й точки:');
    read(x,y,z);
 end;
   for i:=1 to t do with n[i] do
    begin
      writeln('введите цвета R G B 'i'й точки:');
      read(r,g,b); 
    end;
writeln('|точка| координаты |   цвет    |');
for i:=1 to t do
Writeln('|  i  |x='x[i]' y='y[i]' z='z[i]' |r='r[i]' g='g[i]' b='b[i]'|');
end.

program structure;
Const
  R=10;
 type point=record
  x,y,z: integer;
  r,g,b: integer;
    end;
  TInd=1..R;
  TElem=Integer;
  TMas=Array [TInd] Of TElem;
var
  n: array[1..10] of point;
  t:integer;
  i:TInd;
begin
  writeln ('введите кол-во точек от 1 до 10:' );
  readln(t);
  for i:=1 to t do with n[i] do
 begin
    writeln('введите координаты X Y Z 'i'й точки:');
    read(x[i],y[i],z[i]);
 end;
   for i:=1 to t do with n[i] do
    begin
      writeln('введите цвета R G B 'i'й точки:');
      read(r,g,b); 
    end;
writeln('|точка| координаты |   цвет    |');
for i:=1 to t do
Writeln('|  i  |x='x[i]' y='y[i]' z='z[i]' |r='[i]' g='g[i]' b='b[i]'|');
end.

WriteLn('Read ', 'the ', 'f*****ing ', 'manual');

type
  r1 = record
    i: integer;
  end;
  r2 = record
    o: r1;
  end;
 
begin end.

point=record;
color:point;

R,G,B:color;

const ScreenSizeX = 1024;
const ScreenSizeY = 768;
type
 
  TRGBColor = record
    r, g, b : Byte;
  end;
  TScreenLocation=record
     x, y  : Word;
  end;
 
  TScreenPoint=record
     Location : TScreenLocation;
     Color    : TRGBColor;
  end;
  
TScreenPage = Array [1..ScreenSizeX, 1..ScreenSizeY] of TRGBColor;

program structure;
Const
  R=10;
 type point=record
  x,y,z: byte;
  color: word;
    end;
  TInd=1..R;
  TElem=char;
  TMas=Array [TInd] Of TElem;
var
  n: array[1..10] of point;
  t:byte;
  i:TInd;
begin
  writeln ('введите кол-во точек от 1 до 10:' );
  readln(t);
  for i:=1 to t do
 begin
    writeln($'введите координаты X Y Z {i}й точки:');
    read(n[i].x,n[i].y,n[i].z);
 end;
   for i:=1 to t do 
    begin
      writeln($'введите цвет {i}й точки:');
      read(n[i].color); 
    end;
writeln('|точка| координаты | цвет |');
for i:=1 to t do
Writeln($'|  {i}  |x={n[i].x} y={n[i].y} z={n[i].z} | {n[i].color}|',n[i].color:6);
end.

read(n[i].color);

|точка| координаты | цвет |