Дистанционная подготовка: неправильный ответ
Re: неправильный ответ
от Антон Карабанов - Суббота 26 Июль 2014, 03:11
  Никита, Ваша ошибка в этом блоке:
    while s[i]<>' ' do
      begin
        a.inf:=ord(s[i])-ord('0');
        inc(i);
      end;

Почему ищем пробел? Кто сказал, что он есть в конце строки?

В остальном все правильно. Вставьте
    s := s + ' ';
в начале процедуры readsl и наслаждайтесь ОК.