ПОМОГИТЕЕЕЕ срочно!!!!!!!!!!!!! Составить программу , в программе Pascal Даны 3 числа. Найти наибольшее и заменить на 1000 , а остальные заменить на 0.

// PascalABC.NET 3.2, сборка 1374 от 10.01.2017 // Внимание! Если программа не работает, обновите версию! begin   var a:=ReadArrInteger('Введите три числа через пробел:',3);   var mx:=a.Max; // нашли максимальное   a.Transform(x->x=mx?1000:0); // замена   a.Println // вывод end. Пример Введите три числа через пробел: 354 -35 810 0 0 1000