[10 [легко] внимание на картинку! (решить всё! )

в=a-9

b=78-9

b=69

program sliyanie;
type vector=array[1..20]of integer;
var x,y,z:vector;
    k,i:byte;
    a:integer;
    
begin
{заполнение массива X генерацией случайных чисел от 0 до 99}
for i:=1 to 10 do
  begin
    x[i]:=random(99); write('x[':3,i,']=',x[i]:2);
  end;
writeln;
writeln;
{заполнение массива Y генерацией случайных чисел от 0 до 99}
for i:=1 to 10 do
  begin
    y[i]:=random(99); write('y[':3,i,']=',y[i]:2);
  end;
writeln;
writeln;
{слияние массивов}
for i:=1 to 10 do
  begin
    z[i]:=x[i];
    z[i+10]:=y[i];
  end;
for i:=1 to 20 do write('z[':3,i,']=',z[i]:2);
writeln;
writeln;
{сортировка}
for k:=1 to 19 do
  for i:=1 to 19 do
    if z[i]>z[i+1] then
      begin
        a:=z[i];
        z[i]:=z[i+1];
        z[i+1]:=a;
      end;
for i:=1 to 20 do write('z[':3,i,']=',z[i]:2);
end.

Program itogpraktik;
Uses Crt;
Type
Uchenik=record
      Shkola : integer;
      Fam : string[15];
      Klass : integer;
    end;
Var
  i,n,a,j : integer;
  Massiv : array[1..100] of Uchenik;
End;
Begin
  ClrScr;
  writeln('Введите число учеников ');
   read(n);
  for i:=1 to n do
    begin
      writeln('Введите через пробел номер школы и фамилию ученика ');
       with massiv[i] do    
begin
          readln(Shkola,Fam);
          write('Введите класс ученика ');
          read(Klass);
        end;
    end;
  writeln('Ученики 8-ых классов:');
  writeln('Школа   Фамилия        Класс');
  writeln('----------');
  for i:=1 to n do
    if massiv[i].klass=8
      then
        with massiv[i] do
          writeln(Shkola:6,' ',Fam:15,' ',  
           klass);
   ReadKey;
End.