Массивы (программа)

Program ad2;
uses crt;
var a:array [-1000..1000] of real;
    b:array [-1000..1000] of real;
    q:array [0..1000] of integer;
    z:array [0..1000] of integer;
    i, j, k, min, n, s, c,t,d, p, r:integer;
    y,e, sum:real;
begin
writeln ('Выберете номер задания лабораторной работы и введите его');
writeln ('- Задание номер 1');
writeln ('- Задание номер 2');
writeln ('- Задание номер 3');
writeln ('- Задание номер 4');
writeln;
readln (t);
if t=1 then begin
clrscr;
begin
writeln ('- Задание номер 1');
writeln ('');
Writeln ('Программа формирует новый массив, состоящий только из тех элеметов ');
Writeln ('заданного массива, значения которых больше среднего арифметического ');
Writeln ('значений исходного массива');
writeln('');
sum:=0;
writeln ('Пожалуйста введите размер массива');
readln (k);
writeln ('');
writeln ('Теперь вводите значения массива через клавишу Enter');
n:=1;
for i:=1 to k do
begin
readln (d);
q[n]:=d;
sum:=sum+q[n];
n:=n+1;
end;
sum:=sum/k;
n:=1;
writeln;
writeln ('Новый массив сформирован');
for j:=1 to k do
begin
     if q[n]>sum then
        begin
        z[p]:=q[n];
        writeln (z[p]);
        end;
n:=n+1;
end;
readln;
end;
end;
if t=2 then begin
       clrscr;
writeln ('- Задание номер 2');
writeln ('');
writeln ('Эта программа сортирует исходный массив по возрастанию');
writeln ('');
writeln ('Введите пожалуйста размер массива');
readln (r);
writeln ('');
writeln ('Теперь вводите значения массива через клавишу Enter');
for i:=1 to r do
begin
readln (a[i]);
if (i>1) and (a[i-1]>a[i]) then
begin
y:=a[i-1];
a[i-1]:=a[i];
a[i]:=y;
end;
end;
writeln ('');
writeln ( 'Новый массив сформирован');
for i:=1 to   r  do
write ('_',a[i]);
end;
 
if t=3 then begin
       clrscr;
writeln ('- Задание номер 3');
writeln ('');
writeln ('Программа формирует новый массив по последовательности исходного массива:');
writeln ('A[1]; A[1]+A[2]; A[1]+A[2]+A[3] и т.д. ');
 writeln ('');
writeln ('Введите пожалуйста размер массива');
readln (r);
writeln ('');
writeln ('Теперь вводите значения массива через клавишу Enter');
sum:=0;
j:=1;
for i:=1 to r do
begin
readln (a[i]);
e:=a[i];
sum:=sum+e;
b[j]:=sum;
j:=j+1;
end;
writeln (' Новый массив сформирован ');
for j:=1 to r do
writeln (b[j]:0:0);
end;
 
if t=4 then begin
clrscr;
writeln ('- Задание номер 4');
writeln ('');
writeln ('Программа осуществляет сглаживание элементов массива по формуле:');
writeln ('A[n] =  ( A[n-1] + A[n] + A[n-1] ) / 3');
writeln ('');
writeln ('Введите пожалуйста размер массива');
readln (r);
writeln ('');
writeln ('Теперь вводите значения массива через клавишу Enter');
for i:=1 to r do
begin
readln (a[i]);
end;
i:=1;
for j:=1 to r do
begin
if j=r then b[j]:=(a[i-1]+a[i])/3;
if (j>1) and (j<r) then begin
b[j]:=(a[i-1]+a[i]+a[i+1])/3;
i:=i+1;
end;
if j<2 then begin
b[j]:=(a[i]+a[i+1])/3;
i:=i+1;
end;
end;
 
writeln ('');
for j:=1 to r do
writeln (b[j]:2:2);
end;
end.