Исправить код программы

Var
OneG : array [0..9] of integer;
WordG : array [a..z] of char;
XG : array [0..9] of integer;
i1,i3 : integer;
i2 : char;
BEGIN
for i2:= 0 to 8 do WordG[i2] := random (a,z);
for i3:= 0 to 8 do XG[i3]:= ramdom (0,9);
for i1:= 1 to 2 do 
 OneG[i1] := random (1,2);
 if (OneG[i1] = 1) then
 begin
 OneG[i1] := WordG[i2];
 write(OneG[i1]);
 end;
 if (OneG[i1] = 2) then
 begin
 OneG[i1] := XG[i3];
 write(OneG[i1]);
 end;
 
END.

WordG : array [a..z] of char;

var
  OneG: array [0..9] of integer;
  WordG: array ['a'..'z'] of char;
  XG: array [0..9] of integer;
  i1, i3: integer;
  i2: char;
 
begin
  for i2 := 'a' to 'z' do 
    WordG[i2] := chr(random(ord('a'), ord('z')));
  for i3 := 0 to 8 do 
    XG[i3] := random(0, 9);
  for i1 := 1 to 2 do 
    OneG[i1] := random(1, 2);
  if (OneG[i1] = 1) then
  begin
    OneG[i1] := ord(WordG[i2]);
    write(OneG[i1]);
  end;
  if (OneG[i1] = 2) then
  begin
    OneG[i1] := XG[i3];
    write(OneG[i1]);
  end;
end.