Нужны исходники игры GO

uses
  GraphABC;
 
const
  xb = 30; yb = 30; dx = 30; dy = dx; asize = 11;
 
type
  massGo = array [1..21, 1..21] of string[2];
 
var
  masskam: massGo;
 
procedure clr;
begin
  Brush.Color := clWhite;
  Rectangle(1, 1, 601, 630);
  Line(1, yb + dy * 19, 599, 600);
end;
 
procedure BoardPixels(x, y: integer);
begin
  SetPixel(x - 1, y - 1, clBlack);
  SetPixel(x + 1, y - 1, clBlack);
  SetPixel(x - 1, y + 1, clBlack);
  SetPixel(x + 1, y + 1, clBlack);
end;
 
procedure BoardMet(x, y: integer);
begin
  BoardPixels(x, x);
  BoardPixels(((y - x) div 2) + x, x);
  BoardPixels(y, x);
  BoardPixels(x, ((y - x) div 2) + x);
  BoardPixels(((y - x) div 2) + x, ((y - x) div 2) + x);
  BoardPixels(y, ((y - x) div 2) + x);
  BoardPixels(x, y);
  BoardPixels(((y - x) div 2) + x, y);
  BoardPixels(y, y);
end;
 
procedure BoardGo;
var
  n: integer;
  m: char;
begin
  m := 'A';
  for var j := 'A' to 'T' do 
  begin
    if j = 'I' then begin m := 'B'; continue; end;
    TextOut(xb + (ord(j) - ord(m)) * dx - 3, yb - 24, j);
    Line(xb + (ord(j) - ord(m)) * dx, yb, xb + (ord(j) - ord(m)) * dx, yb + dy * 18);
  end;
  for n := 0 to 18 do 
  begin
    TextOut(xb - 22, yb + n * dy - 8, inttostr(n + 1));
    Line(xb, yb + n * dy, xb + dx * 18, yb + n * dy);
  end;
  BoardMet(120, 480);
end;
 
procedure zap(var x: massGo; s: string);
begin
  for var i := 1 to 21 do 
  begin
    x[i, 1] := s;
    x[i, 21] := s;
    x[1, i] := s;
    x[21, i] := s;
  end;
end;
procedure unzap(var x: massGo; s: string);
begin
  for var i := 1 to 21 do 
  begin
    x[i, 1] := s;
    x[i, 21] := s;
    x[1, i] := s;
    x[21, i] := s;
  end;
end;
 
procedure prov(var x: massGo; s1, s: string; i, j: integer);
var
  l, g: integer;
begin
  if x[i - 1, j] <> ' ' then
  begin
    if x[i - 1, j] = s then
    begin
      if x[i, j - 1] <> ' ' then
      begin
        if x[i, j - 1] = s then
        begin
          if x[i + 1, j] <> ' ' then
          begin
            if x[i + 1, j] = s then
            begin
              if x[i, j + 1] <> ' ' then
              begin
                if x[i, j + 1] = s then
                begin
                  x[i, j] := s1 + '0';
                  for l := 1 to 21 do
                    for g := 1 to 21 do
                      if x[l, g] = s1 + '0' then x[l, g] := ' ';
                end
                              else
                begin
                  x[i, j] := s1 + '0'; prov(x, s1, s, i, j + 1);
                end;
              end
                          else
              begin
                for l := 1 to 21 do
                  for g := 1 to 21 do
                    if x[l, g] = s + '0' then x[l, g] := s1;
              end;
            end
                      else
            begin
              x[i, j] := s1 + '0'; prov(x, s1, s, i + 1, j);
            end;
          end
                  else
          begin
            for l := 1 to 21 do
              for g := 1 to 21 do
                if x[l, g] = s1 + '0' then x[l, g] := s1;
          end;
        end
              else
        begin
          x[i, j] := s1 + '0'; prov(x, s1, s, i, j - 1);
        end;
      end
          else
      begin
        for l := 1 to 21 do
          for g := 1 to 21 do
            if x[l, g] = s1 + '0' then x[l, g] := s1;
      end;
    end
      else 
    begin
      x[i, j] := s1 + '0'; prov(x, s1, s, i - 1, j);
    end;
  end
  else
  begin
    for l := 1 to 21 do
      for g := 1 to 21 do
        if x[l, g] = s1 + '0' then x[l, g] := s1;
  end;
end;
 
procedure GoMeh(var x: massGo;s, s1: string);
begin
  for var i := 2 to 20 do
    for var j := 2 to 20 do
      if masskam[i, j] = s then
      begin
        zap(x, s1);
        prov(x, s, s1, i, j);
        unzap(x, ' ');
      end;
end;
 
procedure Kam(x: MassGo);
begin
  BoardGo;
  for var i := 1 to 21 do
    for var j := 1 to 21 do
    begin
      case masskam[i, j][1] of 
        'W':
          begin
            Brush.Color := clWhite;
            Ellipse((i * dx - asize) - dx, (j * dy - asize) - dy, (i * dx + asize) - dx, (j * dy + asize) - dy);
          end;
        'B':
          begin
            Brush.Color := clBlack;
            Ellipse((i * dx - asize) - dx, (j * dy - asize) - dy, (i * dx + asize) - dx, (j * dy + asize) - dy);
          end;
      end;
    end;
  Brush.Color := clWhite;
end;
 
function readGoKam(c: char): integer;
var
  s: string;
  e: integer;
begin
  repeat
    readln(s);
    if s <> 'Pas' then
    begin
      readGoKam := 0;
      for var i := 1 to length(s) do
        if (s[i] >= 'a') or (s[i] <= 't') then
          s[i] := upcase(S[i]);
      if length(s) = 3 then
      begin
        if (s[3] >= 'A') and (s[3] <= 'T') then
        begin
          s := s[3] + s;
          delete(s, 4, 1);
        end;
        if (s[2] + s[3]) > '19' then
        begin clr; Kam(masskam);  TextOut(xb, yb + dx * 19 + 5, 'кордината не верна'); e := 1; continue end;
      end
      else
      begin
        if (s[2] >= 'A') and (s[2] <= 'T') then
        begin
          s := s[2] + s;
          delete(s, 3, 1);
        end;
      end;
      if length(s) = 3 then
      begin
        if (s[1] >= 'A') and (s[1] <= 'H') then
        begin
          if masskam[ord(s[1]) - ord('@') + 1, StrToInt(s[2] + s[3]) + 1] = ' ' then
          begin
            masskam[ord(s[1]) - ord('@') + 1, StrToInt(s[2] + s[3]) + 1] := c;
            e := 0;
          end
          else begin clr; Kam(masskam);  TextOut(xb, yb + dx * 19 + 5, 'Позиция занята другим камнем'); e := 1 end;
        end;
        if (s[1] >= 'J') and (s[1] <= 'T') then
        begin
          if masskam[ord(s[1]) - ord('A') + 1, StrToInt(s[2] + s[3]) + 1] = ' ' then
          begin
            masskam[ord(s[1]) - ord('A') + 1, StrToInt(s[2] + s[3]) + 1] := c;
            e := 0;
          end
          else begin clr; Kam(masskam);  TextOut(xb, yb + dx * 19 + 5, 'Позиция занята другим камнем'); e := 1 end;
        end;
      end
      else
      begin
        if (s[1] >= 'A') and (s[1] <= 'H') then
        begin
          if masskam[ord(s[1]) - ord('@') + 1, StrToInt(s[2]) + 1] = ' ' then
          begin
            masskam[ord(s[1]) - ord('@') + 1, StrToInt(s[2]) + 1] := c;
            e := 0;
          end
          else begin clr; Kam(masskam);  TextOut(xb, yb + dx * 19 + 5, 'Позиция занята другим камнем'); e := 1 end;
        end;
        if (s[1] >= 'J') and (s[1] <= 'T') then
        begin
          if masskam[ord(s[1]) - ord('A') + 1, StrToInt(s[2]) + 1] = ' ' then
          begin
            masskam[ord(s[1]) - ord('A') + 1, StrToInt(s[2]) + 1] := c;
            e := 0;
          end
          else begin clr; Kam(masskam);  TextOut(xb, yb + dx * 19 + 5, 'Позиция занята другим камнем'); e := 1 end;
        end; 
      end;
    end
    else readGoKam := 1;
  until e <> 1;
end;
 
procedure HodGo;
var
  s, s1: integer;
begin
  repeat
    clr;
    Kam(masskam);
    TextOut(xb, yb + dx * 19 + 5, 'Ход Black.Что бы пропустить ход введите в строку Пас.');
    s := readGoKam('B');
    GoMeh(masskam,'W', 'B');
    clr;
    Kam(masskam);
    TextOut(xb, yb + dx * 19 + 5, 'Ход White .Что бы пропустить ход введите в строку Пас.');
    s1 := readGoKam('W');
    GoMeh(masskam,'B', 'W');
    clr;
  until (s = 1) and (s1 = 1);
  Kam(masskam);
end;
 
begin
  for var l := 1 to 21 do
    for var g := 1 to 21 do
      masskam[l, g] := ' ';
  SetWindowSize(602, 631);
  HodGo;
end.