Почему вариант ответа неправильный?

var n, k: Integer;
var s: String;
var x, y: Real;
var c: Char;
 
procedure Clear;
begin
  n:=0; s:=''; x:=0; y:=0; c:=#0;
end;
 
procedure Check;
begin
  WriteLn(k, ': ', (n=-13) and (s='Привет, друзья!') and (x=3.6) and (y=-14.2) and (c='Q'),
    ' ', n,' "', s, '" ', x, ' ', y, ' "', c,'"');
end;
 
procedure onExeption;
const
  errMsg: String = '*** Аварийное завершение';
begin  
  WriteLn(k, ': ', errMsg);
end;
 
begin
  Assign(input, '_test.txt');
  k:=0;
  //1
  try
    Inc(k); Reset(input);
    Readln(n); Readln(s, x, y); Read(c);
    Check;
  except
    onExeption;
  end;
  //2
  try
    Inc(k); Reset(input);
    n := ReadInteger; s := ReadlnString; (x, y) := ReadReal2; c := ReadlnChar;
    Check;
  except
    onExeption;
  end;
  //3
  try
    Inc(k); Reset(input);
    n := ReadlnInteger; s := ReadlnString; (x, y) := ReadReal2; c := ReadChar;
    Check;
  except
    onExeption;
  end;
  //4
  try
    Inc(k); Reset(input);
    Readln(n, s, x, y, c);
    Check;
  except
    onExeption;
  end;
  //5
  try
    Inc(k); Reset(input);
    n := ReadlnInteger; s := ReadlnString; (x, y) := ReadlnReal2; c := ReadlnChar;
    Check;
  except
    onExeption;
  end;
  //6
  try
    Inc(k); Reset(input);
    Readln(n); Readln(s, x, y, c);
    Check;
  except
    onExeption;
  end;
  //7
  try
    Inc(k); Reset(input);
    n := ReadlnInteger; s := ReadString; (x, y) := ReadReal2; c := ReadChar;
    Check;
  except
    onExeption;
  end;
  //8
  try
    Inc(k); Reset(input);
    n := ReadlnInteger; s := ReadString; (x, y) := ReadlnReal2; c := ReadlnChar;
    Check;
  except
    onExeption;
  end;
end.

var n, k: Integer;
var s: String;
var x, y: Real;
var c: Char;
 
procedure Clear;
begin
  n:=0; s:=''; x:=0; y:=0; c:=#0;
end;
 
procedure Check;
begin
  WriteLn(k, ': ', (n=-13) and (s='Привет, друзья!') and (x=3.6) and (y=-14.2) and (c='Q') :6,
    ' ', n,' "', s, '" ', x, ' ', y, ' #', Ord(c),'');
end;
 
procedure onExeption;
const
  errMsg: String = '*** Аварийное завершение';
begin
  WriteLn(k, ': ', errMsg);
end;
 
begin {$I-}
  Assign(input, '_test.txt');
  
  {//1}
  repeat
    k:=1; Reset(input);
    Readln(n); 
    if IOResult<>0 then begin
      onExeption; Break;
    end;
    Readln(s, x, y); 
    if IOResult<>0 then begin
      onExeption; Break;
    end;
    Read(c);
    if IOResult<>0 then begin
      onExeption; Break;
    end;
    Check;
  until True;
  {//4}
  repeat
    k:=4; Reset(input);
    Readln(n, s, x, y, c);
    if IOResult<>0 then begin
      onExeption; Break;
    end;
    Check;
  until True;
  {//6}
  repeat
    k:=6; Reset(input);
    Readln(n); 
    if IOResult<>0 then begin
      onExeption; Break;
    end;
    Readln(s, x, y, c);
    if IOResult<>0 then begin
      onExeption; Break;
    end;
    Check;
  until True;
end.