ПОМОГИТЕЕЕЕ срочно!!!!!!!!!!!!!
Составить программу , в программе 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 8100 0 1000