PASCAL. Сортировка данных по размеру. Вывод корректных и некорректных данных.

[pro100wato]

Ввод:

Фамилия
Имя
Отчество
Личный номер
Пол

Вот, что сделал своими кривыми руками. Помогите доделать пожалуйста!

const
  n = 5;

type
  Talp = record 
    fam: string; 
    name: string; 
    otch: string; 
    pol: sex;
    nom: integer; 
  end;
  
  b = array [0..n] of Talp;

procedure vpisal(f: text; error: text; var b: Talp);

var
  i, e: integer; 
  st, sl: string; 
  a: Talp;
begin
  i := 1; 
  assign(f, 'файл.txt'); 
  reset(f); 
  assign(error, 'ошибки.txt'); 
  rewrite(error); 
  while not Eof(f) do 
  begin
    readln(f, sl); 
    b[i].fam := copy(sl, 1, pos(' ', sl) - 1); 
    a := (a.fam); 
    delete(sl, 1, pos(' ', sl)); 
    b[i].name := copy(s, 1, pos(' ', sl) - 1); 
    a := (st.name); 
    delete(s, 1, pos(' ', s)); 
    b[i].otch := copy(s, 1, pos(' ', sl) - 1); 
    a := (a.otch); 
    delete(s, 1, pos(' ', s)); 
    b[i].pol := copy(s, 1, pos(' ', sl) - 1); 
    a := (a.pol); 
    delete(s, 1, pos(' ', s)); 
    b[i].nom := copy(sl, 1, pos(' ', sl) - 1); 
    e := pos(' ', sl); 
    delete(s, 1, pos(' ', s)); 
    
    writeln(b[i]); 
    inc(i); 
    a: st; 
  end; 
  close(f); 
  begin
    writeln(a); 
  end; 
end;

begin

end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

Сообщение от pro100wato

b = array [0..n] of Talp;

procedure vpisal(f: text; error: text; var b: Talp);

сразу НЕТ. красным выделил ошибку. нужно объявить дополнительно тип данных массив из записей и его уже передавать в процедуру:

type array [0..n] of Talp = TArrayOfTalp;

var
 MyArr : TArrayOfTalp;

.....

procedure vpisal(f: text; error: text; var b: TArrayOfTalp);

а в чём помощь нужна?

что такое: "Сортировка данных по размеру" ?
по размеру чего их надо отсортировать?

[pro100wato]

Корректный размер

К примеру допустимый размер "Фамилия Имя Отчество" и программа корректирует введённые данные таким способом - я ввожу Полежайкин Василий Иванович, программа записывает в файл как "Полежай Вас Иванович"

[pro100wato]

Сообщение от Serge_Bliznykov

сразу НЕТ. красным выделил ошибку. нужно объявить дополнительно тип данных массив из записей и его уже передавать в процедуру:

type array [0..n] of Talp = TArrayOfTalp;


var
 MyArr : TArrayOfTalp;

.....

procedure vpisal(f: text; error: text; var b: TArrayOfTalp);

а в чём помощь нужна?

что такое: "Сортировка данных по размеру" ?
по размеру чего их надо отсортировать?

В один файл записываются корректные данные, а во второй ошибки, допустим цифры в имени или наоборот.

[Serge_Bliznykov]

Сообщение от pro100wato

К примеру допустимый размер "Фамилия Имя Отчество" и программа корректирует введённые данные таким способом - я ввожу Полежайкин Василий Иванович, программа записывает в файл как "Полежай Вас Иванович"

Это Вы сами придумали?
При чём здесь - "корректирует"? Это не коррекция - а порча данных.


а про сортировку речь уже не идёт? (если что, сортировка - это процесс упорядочивания данных, когда данные располагаются в определённом порядке).

А у Вас вообще есть задание ?
Приведите его полностью.

[pro100wato]

Сообщение от Serge_Bliznykov

Это Вы сами придумали?
При чём здесь - "корректирует"? Это не коррекция - а порча данных.


а про сортировку речь уже не идёт?

у Вас вообще есть задание ?
Приведите его полностью.

Прочитать из файла данные, если они подходят под запись, то записать в файл выхода. Иначе записать в файл ошибок. Размерность записи мы назначаем сами.

[Serge_Bliznykov]

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

[pro100wato]

Сообщение от Serge_Bliznykov

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

ошибкой являются все некорректные данные, к примеру:
Номер отрицательный
Больше чем 5 полей
В словах цифры

Нету точного определения.

Хорошо, спасибо хоть за попытку

[Serge_Bliznykov]

Сообщение от pro100wato

Нету точного определения.

это ключевое предложение.

если нет (или Вы не можете сформулировать) чёткие и однозначные требования, то запрограммировать решение нельзя (мы сейчас не рассматриваем обучающиеся системы с искусственным интеллектом, разумеется).

если Вам реально нужно прочитать данные из текстового файла и проверить, нет ли там ошибок, то Вам обязательно нужно формулировать правила.
ну, например, поле "фамилия": должно состоять только из символов кириллицы, допускается наличие одного дефиса в середине.
пробелы и любые другие символы не допускаются (это ошибка).
длина поля от 2 символов (если меньше - то это ошибка).

поле "Имя":
должно состоять только из символов кириллицы
пробелы и любые другие символы не допускаются (это ошибка).
длина поля от 2 символов.

поле "личный номер" должно состоять только и цифр, длина поля строго 5 (например).

поле "пол" допускает только значение представленное одним из 4-х символов кириллицы "м", "М", "ж", "Ж". любые другие варианты являются ошибкой.

все поля располагаются в одно строке и отделяются друг от друга пробелами (количество разделяющих пробелов может быть более одного).

Выходной файл должен содержать строки с корректными записями. Поля в результирующем файле должны разделятся строго одним пробелом.

вот как-то так.


p.s. и всё таки у меня чёткое чувство, что Вы неправильно поняли исходные условия задания, придумали себе какую-то другую задачу, отличную от начальной задачи и теперь героическими усилиями пытаетесь её решить.
Очень надеюсь, что я ошибаюсь. Кстати, можете сфотографировать ваше задание и выложить на форум эту фотку?