​1,2и Хотябы какойто одное задание

Program arr_length;

const
  IN_FILENAME = 'INPUT.txt';
  OUT_FILENAME = 'OUTPUT.txt';

var
  fileIn,fileOut: TextFile;
  s,t: string;

begin
  writeln('Загружаю входные данные...');
  t := '';
  AssignFile(fileIn, IN_FILENAME);
  AssignFile(fileOut, OUT_FILENAME);
    reset(fileIn);
    while not eof(fileIn) do
      begin
        readln(fileIn, s);
        if (s = '0') then
             break
        else
          t := t + s;
      end;
    CloseFile(fileIn);
    rewrite(fileOut);
    writeln(fileOut, Length(t));
    CloseFile(fileOut);
end.

Iomega ZIP. Самый популярный сегодня мобильный дисковод. Внутренний вариант ZIP уже устанавливаются в некоторые новые модели домашних компьютеров вместе с дисководом 1,44 Мб.
Работает с дискетой собственного формата объемом 100 Мб. Скорость чтения данных - 0,8 - 1,4 Мб/с.

Iomega JAZ. Если ZIP представляет из себя замену стандартного дисковода, то JAZ - настоящий переносной винчестер. Этот дисковод работает с дискетами собственного формата емкостью 1 Гб. Скорость чтения - от 3,5 до 6,6 Мб/с.

Imation Superdisk (LS-120). Стандарт дискеты LS-120 был выработан группой компаний. Внутренний дисковод стандарта LS-120 под названием a:drive появился еще в конце 1996 и сразу стал основным конкурентом дисководов ZIP. Емкость дискеты на 20% больше, чем ZIP, мог читать не только дискеты своего стандарта, но и старые дискеты 1,44 Мб.