Всем добрый вечер) пожалуйста,помогите найти ошибку в программе-->

А вникнуть в то, что говорит компилятор?

[Pascal Warning] это не глюк, это предупреждение. И означает оно то, что для управляющей переменной цикла следует использовать локальные переменные процедуры или функции.

ЗЫ Умилил перевод
For loop control variable must be simple local variable
Для контроля за циклом переменная должна быть простой местной переменной.

1)
Function maxarray (x: array of real): real;
var max:real;
begin
max:=x[1];
for i:=2 to Length(x) do
if x > max then
max := x;
maxarray:=max;
end;

2)скороей всего тебе нужно и возваратить значение через поцедуру, а не просто вывести на экран
Procedure minarray (x: array of real; var min: real);
begin
min:=x[1];
for i:=2 to Length(x) do
if x < min then
min := x;
end;

вместо x везде x(i), тока с квадратными скобками

А где у тебя здесь и там n?
Глупейшая ошибка при работе с методами. Ты обрабатываешь только массив, а вот кол-во элементов массива в методах неизвестно.

Function maxarray (x: array of real): real;
var max:real;
begin
max:=x[1];
for i:=2 to n do //здесь
if x>max then max:=x;
maxarray:=max;
end;

Procedure minarray (x: array of real);
var min: real;
begin
min:=x[1];
for i:=2 to n do //там
if x<min>;
writeln('min= ',min:8:2); //vivod otveta
For loop control variable must be simple local variable
Для контроля за циклом переменная должна быть простой местной переменной.

Var A,B,C,D:array of real;
(возможно требует интервал массива указать)
Эм. и возможно запрос к функции и процедуре не те, просто попробуй посылать не массивом в элементом. как вариант.