1.Отыскать в массиве те элементы, значение которых меньше среднего арифметического, взятого

1)
program Ok;
const n = 10;
var
A:array[1..n] of real;
sum:real;
i:integer;
begin
sum:=0;
for i:=1 to n do
begin
read(A[i]);
sum:=sum+A[i];
end;
sum:=sum/n;
for i:=1 to n do
begin
if(A[i]lt;sum) then
writeln(A[i]);
end;
end.
2)
program Ok;
const n = 10;
varA:array[1..n] of real;
sum:real;
i,k:integer;
begin
sum:=0;
for i:=1 to n do
begin
read(A[i]);
if (i mod 2 = 1) then
sum:=sum+A[i];
if (i mod 2 = 1) then
k:=k+1;
end;
sum:=sum/k;
write(sum);
end.

//Pascal

//1)
var
  A: array [1..8] of integer;
  i: byte;
  sum: integer;
  Arifm: real;
begin
  writeln('Наполнение массива.');
  sum := 0;
  for i := 1 to 8 do
  begin
    write('A[',i,'] = ');
    readln(A[i]);
    sum := sum + A[i];
  end;
  Arifm := sum/8;
  writeln('Среднее арифметическое всех частей = ', Arifm);
  writeln;
  writeln('Элементы меньше среднего арифметического.');
  for i := 1 to 8 do
    if A[i] lt; Arifm then
      write(A[i]:4);
  writeln; readln;       
end. 

//2)
var
  A: array [1..8] of integer;
  i: byte;
  sum: integer;
  Arifm: real;
begin
  writeln('Наполнение массива.');
  sum := 0;
  for i := 1 to 8 do
  begin
    write('A[',i,'] = ');
    readln(A[i]);
    if i mod 2 lt;gt; 0 then
      sum := sum + A[i];
  end;
  Arifm := sum/4;
  writeln('Среднее арифметическое частей с нечетн. индексами = ', Arifm);
  readln;
end.