Найти ошибку (паскаль) program u1; var max1,max2,k: longint; begin readln (k); max1: =k; max2: =k; repeat readln (k); if k> max1 then begin max2: =max1; max1: =k; until k< > 0; writeln (max2); end; end. выводит ошибку в 12 строчке "встречено until, а ожидалось ; "