Program KROLIK;
Var f1, f2: Text; {Файлы на ввод и вывод}
n: Integer; {Сколько строк считывать}
i, c, num: Integer;
s: String; {Сама строка}
m1, m2: Integer; {Максимум первый и второй}
Begin
Assign(f1, 'z1.dat'); ReSet(f1);
Assign(f2, 'z1.sol'); ReWrite(f2);
Readln(f1, n);
For i := 1 to n do
Begin
Readln(f1, s);
Val(s, num, c);
If (num > m1) then m1 := num;
End;
For i := 1 to n do
Begin
Readln(f1, s);
Val(s, num, c);
If (num > m2) then m2 := num;
End;
If (m1 > m2) then Writeln(f2, 'V ', m1);
If (m2 > m1) then Writeln(f2, 'D ', m2);
If (m1 = m2) then Writeln(f2, 'draw');
Close(f1); Close(f2);
End. Не проходит тест
Z3.dat Z3.sol
2
2682 draw
1986
8910
1000
Помогите!!!
