Массивы, Pascal

[Molester1337]

Прошу помочь разобраться со следующей программой. Мне нужно разработать программу для ввода последовательности из n <= 255 вещественных чисел. Пользователь должен вводить значения в формате:
номер_в_последовательности - значение.
Если значение с таким номером уже введено, то необходимо выдавать соответствующий запрос на подтверждение операции перезаписи и изменять старое значение (записывать "поверх" его новое значение), если такое подтверждение получено. Вывести множество введенных новых элементов (их номера) и множество измененных элементов.

Видел что-то подобное на C, но не совсем понимаю, как это переписать под Pascal.

[Аватар]

Ну коль не совсем понимаешь, значит что-то понимаешь. Покажи что понимаешь, кодом

[Molester1337]

Сообщение от Аватар

Ну коль не совсем понимаешь, значит что-то понимаешь. Покажи что понимаешь, кодом

var
  e, m: set of Byte;
  a: array [1..255] of Real;
  n: Integer;
begin
  WriteLn('Ввести пары номер-число, завершить - 0');
  repeat
    Read(n); if n=0 then Break;
    Read(a[n]);
    if n in e then Include(m,n) else Include(e,n);
  until False;
  Write('Введены:'); for n in e-m do Write(' ',n); 
  WriteLn;
  Write('Изменены:'); for n in m do Write(' ',n); 
  WriteLn;
end.

Вопрос в том, как правильно все же реализовать перезапись и мне кажется, что я вообще даже переменные неправильно задал и вся задача неправильна.

[Аватар]

В общем-то правильно, только введены наверно все из множества e, а не разница e-m. Только читать не напрямую в a[n]), а в другую переменную, проверять по номеру записано ли раньше, в случае если записано запрашивать подтверждение и только после этого в массив

[Molester1337]

Сообщение от Аватар

Только читать не напрямую в a[n], а в другую переменную, проверять по номеру записано ли раньше, в случае если записано запрашивать подтверждение и только после этого в массив

Ага, окей, спасибо. Можно для сверки вот эту часть кодом, пожалуйста?

[Аватар]

Примерно так

  Read(b);
  if n in e then begin
    write('вводился ранее. Переписать (д/н)?');
    readln(c);
    if c='д' then Include(m,n) else Continue;
  end
  else Include(e,n);
  a[n]:=b;