program Weather_project;
uses modul_weather;
const file_input = 'input.txt';
var
  x, n : integer;
  r : weather;
  f : file of weather;

begin
  if not FileExists('input.txt') then // если файла нет, не плохо бы создать
    create_file(file_input);
  writeln('Выберите интресующую вас команду :');
  writeln('1 - Добавление в файл записи');
  writeln('2 - Корректировка по заданому номеру записи файла');
  writeln('3 - Удаление записи по заданому номеру');
  writeln('4 - Обработка записи');
  writeln('5 - Вывод всех записей файла в форме таблицы');
  writeln('0 - Завершение программы');
  repeat
    write('Команда : ');
    readln(x);
    case x of
    1 : begin
          writeln('  Введите запись, которую необходимо добавить');
          r := read_weather();
          add(r, file_input);
        end;
    2 : begin
          writeln('  Введите номер записи, для редактирования');
          readln(n);
          writeln('  Введите новую запись,');
          writeln('  что бы оставить оставить поля без изменения, введите на на месте города *');
          r := read_weather;
          correct(r, n);
        end;
    3 : begin
          writeln('  Введите номер записи, которую необходимо удалить');
          readln(n);
          delete(n, file_input);
        end;
    4 : begin
          writeln('+', rep('-', width_total), '+');
          writeln('|', centre('City', width_city), '|', centre('Day T.', width_t), '|', centre('Night T.', width_t), '|', centre('Delta T.', width_t), '|');
          writeln('+', rep('-', width_total), '+');
          find(file_input);
        end;
    5 : begin
          writeln('+', rep('-', width_total), '+');
          writeln('|', centre('City', width_city), '|', centre('Day T.', width_t), '|', centre('Night T.', width_t), '|', centre('Delta T.', width_t), '|');
          writeln('+', rep('-', width_total), '+');
          assign(f, 'input.txt');
          reset(f);
          while not eof(f) do
          begin
            read(f, r);
            format(r);
          end;
          close(f);
        end;
    end;
  until (x = 0);
end.