Неправильный вывод

program name;
uses crt;
 
procedure menu(a,b:integer);
begin
  
  writeln('Выберете раздел ');
  writeln('1.Программирование алгоритмов линейных структур');
  writeln('2.Программирование алгоритмов ветвящихся структур');
  writeln('3.Программирование алгоритмов цикла');
  writeln('4.Программирование одномерных массивов');
  writeln('5.Программирование двумерных массивов');
  writeln('6.Дополнительное задание');
  writeln('7.Выход');
 
end;
 
procedure pervaj(l:integer);
 
          var x,y,z:real;
          begin
             clrscr;
          writeln('Введите радиус кольца= ');
          read(x);
          y:=3.14;
          z:=y*(x*x);
          writeln('Площадь кольца= ',z);
          readln;
          end;
 
procedure vtoraj(q:integer);
 
var x,a,b:real;
begin
 
   clrscr;
   write('Введите значение переменной а= ');
read(a);
writeln('Введите значение переменной b= ');
read(b);
if a>b then x:=a/b+2 else x:=8;
if a<b then x:=(b-9)/a;
writeln('X=',x);
readln;
 
  end;
 
procedure tretaj(v:integer);
 
var n:integer;
    x,s:real;
begin
   clrscr;
s:=0;
writeln('Для вычисления суммы элементов ряда введите значение x=');
read(x);
        begin
        for n:=1 to 8 do
        s:=s+(x*n)/(2*n);
        writeln('Сумма элементов ряда =',s);
        end;
readln;
end;
 
procedure chetvartaj(g:integer);
 
Var a:array[1..100] of real;
    i,n,s:integer;
Begin
clrscr;
s:=0;
write('Введите размер количество элементов в массиве');
read(n);
Randomize;
begin
writeln('Одномерный массив: ');
for i:=1 to n do begin
a[i]:= random (100);
write(' ',a[i]);
end;
begin
for i:=1 to n do
if ( i mod 2 <>0) then
s:=s+1;
end;
writeln();
writeln('Количество нечетных элементов в массиве =',s);
end;
end;
 
procedure pyataj(l:integer);
 
var
a:array[1..10,1..10] of integer;
i,j,m,n,S:integer;
b:array[1..10] of real;
begin
   clrscr;
writeln('Введите количество строк :');
readln(n);
writeln('Введите количество столбцов :');
readln(m);
writeln('Матрица размером ',n,'x',m);
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random (10)-5;
write(a[i,j]:2,'');
end;
writeln
end;
for i:=1 to n do
begin
S:=0;
for j:=1 to m do
s:=s+a[i,j];
b[i]:=s/m
end;
Writeln('Среднее арифметическое строк :');
for i:=1 to n do writeln(b[i]:0:3,' ');
Writeln;
for i:=1 to n do
begin
s:=0;
for j:=1 to m do
if a[i,j]>b[i] then s:=s+1;
writeln('В строке ',i,' Кол-во элементов, которые > среднее арифметическое - ',s);
end;
readln;
end;
 
procedure shestaj(f:integer);
 
Const k=5;
Type a=record
f: string;
n: string;
g: word;
end;
 
Var b: array[1..k] of a; i,j: byte; c: string;
Begin
Clrscr;
For i:=1 to k do
begin
Write('Введите фамилию автора: ');
Readln(b[i].f);
Write('Введите название книги: ');
Readln(b[i].n);
Write('Введите год издания: ');
Readln(b[i].g);
end;
For i:=1 to k-1 do
For j:=i+1 to k do
If b[i].f>b[j].f then
begin
c:=b[i].f;
b[i].f:=b[j].f;
b[j].f:=c;
end;
For i:=1 to k do
Writeln(b[i].f,'  -  ',b[i].n,'  -  ',b[i].g);
End;
 
 
 
 
var
  v,a,b: integer;
  ch: char;
 
begin
  ClrScr;
  repeat
    writeln();
    a:=2;
    b:=1;
    menu(a,b);
    
    read(v);
    
    if v = 1 then pervaj(a);
    if v = 2 then vtoraj(b);
    if v = 3 then tretaj(a);
     if v = 4 then chetvartaj(a);
      if v = 5 then pyataj(a);
       if v = 6 then shestaj(a);
       if v = 7 then exit
    
  until  ch = chr(27);
  
end.