ПОЖАЛУЙСТА ПОМОГИТЕ РЕШИТЬ ПРОГРАММУ НА ПАСКАЛЕ!

ЭТО сложно?

А почему я делаю так, разберись сам:
s:=1;
e:=length(a);
repeat
a[ s]:=a[ s]+a[ e];
a[ e]:=a[s]-a[ e];
a[ s]:=a[ s]-a[ e];
s:= s+1;
e:=e-1;
until s>=e;

www. cyberforum.ru/turbo-pascal/thread390517.html
пробел убери

вам полностью никто не обязан писать, но решение вам дали, а болванку и сами можете наваять (если нет то вам явно учить pascal с нуля)

решение от inga zajonc не ленивое и делает упор на малое потребление памяти но бОльшее потребление ресурса ЦП

а вот ленивое решение, жрет память но не ресурсы ЦП, не для условий с жестким ограничением памяти, однако нет зависимости от типа данных в массиве (что это думайте сами)

и разумеется есть менее расточительное по памяти решение, которое не будет зависеть от типа данных массива, но о нем так же думайте сами (это в каком-то плане антипод решения от inga zajonc)

var
...
arrLen: Longword;
...
begin
arrAS := 'Source array: ';
arrBS := 'Result array: ';
write('Type array length: '); readln(arrLen); // *
arrA := new Integer[arrLen]; // *
//arrLen := length(arrA); // раскоментить при альтернативном заполнении исходного массива
arrB := new Integer[arrLen];
arrLen := arrLen - 1;
randomize(); // *
for i := 0 to arrLen do begin
arrA[i] := random(100); //убрать эту и помеченные "*" строчки, если заполнение исходного массива идет иначе
arrB[arrLen - i] := arrA[i];
arrAS := arrAS + ', ' + arrA[i].ToString();
arrBS := arrBS.Insert(14, ', ' + arrA[i].ToString());
end;
arrAS := arrAS.Remove(14, 2); arrBS := arrBS.Remove(14, 2);
writeln(arrAS);
writeln(arrBS);
end.