Пожалуйста … помогите…. Очень срочно нужно… помогите решить задачу на Паскале……

Program first; var mas: array[1… 5] of integer; i,a,b: integer; beginfor i: =1 to 5 doreadln (mas[i]); for i: =1 to 4 do for j: =2 to 5 do if mas[i]>mas[j] thenmas[i]: =mas[j]; a: =mas[1]b: =0; for i: =1 to 4 do if a<>mas[i] then b: =b+1; writeln ('Уникальных чисел в массиве',b); end.