lab_2(need lvl.txt in C:\PABCWork.NET)

uses
  crt;

var
  v1, v2, v3, a, c, d, x1, x2, g: integer;
  f: text;

begin
  v1 := 5;
  v2 := 3;
  assign(output, 'lvl.txt');
  rewrite(output);
  for d := 1 to 196 do
  begin
    a := random(6);
    writeln(a);
  end;
  //write('');
  close(output);
  reset(output);
  //read(output, a);
  for d := 1 to 14 do
  begin
    for c := 1 to 14 do
    begin
      gotoxy(v1, v2);
      v1 := v1 + 1;
      read(output, a);
      if a = 0 then writeln('O');
      if (x1 = v1) and (x2 = 2) then EXIT;
    end;
    v1 := 5;
    v2 := v2 + 1;
  end;
  close(output);
  readln();
end.