FreePascal.ru

Дан код, в котором не синтаксических ошибок.Нужно найти и исправить признаки плохого кода(например:Дублирование,сложность методов).Как можно избавиться от большого количества условии IF ,WHILE
1 var
2 ...
3 begin
4 ...
5
6 Result:= Date;
7 K:= Abs(Number);
8
9 ...