Вот задача на record тема задачи организация ремонта мониторов. Помогите переделать задачу пожалуйста.
Условие переделки: Какой мастер приносит самый большой доход предприятию по ремонту мониторов. И дать информацию о лучшей модели монитора. Причем мониторов много но нужно выбрать самый лучший.Мастера можно написать от фонаря как бы советуя обращаться к нему так как он самый лучший работник этого предприятия.
А мониторы пользователь должен вводить сам и программа сама вычисляет какой из мониторов самый лучший.
Вот задача которую нужно переделать. Но задача мне кажется работает неправильно.
Задача:
Код:
Простой видКопироватьПечать
1.
Код: Выделить всё
Program RemontMonitirov;
2. type
3. A=record
4. Model: string[10];
5. Diagonal: byte;
6. Polomka: string[20];
7. Remonter: string[15];
8. end;
9. Const k=4;
10. Var Remont: array [1..k] of A; i:integer;
11. Begin
12. for i:=1 to k do
13. begin
14. with Remont[i] do
15. begin
16. write ('Model'); readln (Model);
17. write ('Diagonal'); readln (Diagonal);
18. write ('Vid polomki'); readln (Polomka);
19. write ('Familiya mastera'); readln (Remonter);
20. end;
21. end;
22. for i:=1 to k do
23. begin
24. with Remont[i] do
25. begin
26. writeln (Model:21, Diagonal:4, Polomka:21, Remonter:16);
27. end;
28. end;
29. readln
30. end. 
лучшая из худших, надо полагать, так как лучшая в этом списке вообще не появится никогда)