паскаль!

[AHGEJI]

помогите! скажите что не так в программах:

1)
Вычислить Z=(X max + Y min)/2, где Xm1 u Xm2 – наименьшие элементы массивов X1(15), X2(12) используя подпрограмму – функцию.


Код:


program pr81;
var X:array [1..15] of real;
Y:array [1..12] of real;
i:integer;
S,min,p,r:real;
function F(m,n:real):real;
begin
F:=(m+n)/2;
end;
begin
writeln('vvedite massiv X');
for i:=1 to 15 do
readln(X[i]);
writeln('vvedite massiv Y');
for i:=1 to 12 do
readln(Y[i]);
writeln(lst,' massiv X');
for i:=1 to 15 do
writeln(lst,X[i]:6:2);
writeln(lst,' massiv Y');
for i:=1 to 12 do
writeln(lst,Y[i]:6:2);
min:=x[1];
for i:=1 to 15 do
if min> x[i] then min:=x[i];
p:=min;
min:=y[1];
for i:=1 to 12 do
if min> y[i] then min:=y[i];
r:=min;
s:=f(p,r);
writeln('s=',s:6:2);
end.


2)
Вычислить Z=(X max - Y min)/2, где X max – максимальный элемент массива X(25); Y max – минимальный элемент массива Y(20), используя подпрограмму – процедуру.

Код:


var x:array [1..25] of real;
y:array [1..20] of real;
max,min:real;
p,r:real;
s:real;
i:integer;
procedure f(m,n:real; var A:real);
begin
a:=(m-n)/2;
end;
begin
writeln('vvedite massiv X');
for i:=1 to 25 do
readln(X[i]);
writeln('vvedite massiv Y');
for i:=1 to 20 do
readln(Y[i]);
writeln(lst,' massiv X');
for i:=1 to 25 do
writeln(lst,X[i]:6:2);
writeln(lst,' massiv Y');
for i:=1 to 20 do
writeln(lst,Y[i]:6:2);
max:=0;
for i:=1 to 25 do
if max< x[i] then max:=x[i];
p:=max;
min:=1000;
for i:=1 to 20 do
if min> y[i] then min:=y[i];
r:=min;
f(p,r,s);
writeln('max=',p:6:2,'min ='r:6:2,'s=',s:6:2);
end.


и помогите с этой:

3)

Дано натуральное число n, символы S1,S2…Sn. Выяснить, верно ли, что в последовательности имеются 5 подряд идущих букв е.

[Don Karleone]

Задача 1. По условию задачи вам надо найти Z = ('максимальный элемент массива X' - 'минимальный элемент массива Y')/2 а вы в обоих массивах находите минимальные элементы.

max:=x[1];
for i:=2 to 15 do
  if x[i]>max then max:=x[i];
min:=y[1];
for i:=2 to 12 do
  if y[i]<min then min:=y[i];
S:=F(max,min);

Задание 2. Задание аналогичное первому.

Задание 3.

  readln(n);
  readln(ST);
  i:=0;
  Count:=0;
  while (i < n) and (Count <> 5) do
    begin
      Inc(i);
      if ST[i] = 'e' then Inc(Count)
                         else Count:=0;
    end;
  if Count >=5 then writeln('Yes')
                      else writeln('No');