Программирование и использование программных модулей

program Lb9;
uses crt;
type TMas=array[1..10] of real;
  TVector=object
    Mas:TMas;
    n:byte;
    id:char;
    procedure inp; {The procedure}
    procedure out; {The procedure}
    procedure sort; {The procedure}
    end;
var vect:tvector;
procedure TVector.inp; {The procedure}
var i:byte;
begin
  Writeln('Enter identificator of vector (One symbol) :'); {The request for input}
  Write('id='); {The request for input}
  Readln(id);  {input}
  Writeln('Enter number of elements of vector ',id,' :'); {The request for input}
  Write('n='); {The request for input}
  readln(n);  {input}
  writeln('Enter elements of vector ',id,' :');  {The request for input}
  for i:=1 to n do
    begin Write(id,'[',i,']=');  {The request for input}
    readln(mas[i]);  {input} 
    end;
end;
procedure CreateVector(const mx : masiv; sz : integer;
                       var v : vector; var len : integer);
var
  i, j : integer;
begin
  len := 0;
  for i := 1 to sz div 2 + sz mod 2 do
    for j := i to sz - i + 1 do
      if mx[i, j] mod 2 <> 0 then
      begin
        len := len + 1;
        v[len] := mx[i, j];
      end;
end;
function k(var x: array of integer; kx: integer): integer;
var i, t: integer;
begin
  t := 0;
  for i := 0 to kx - 1 do if x[i] > 0 then inc(t);
  k := t
end;
procedure genout(s: string; var x: array of integer; p: integer);
var i: integer;
begin
  writeln('Вектор ', s, ':');
  for i := 0 to p - 1 do
    begin
      x[i] := -99 + random(199);
      write(x[i]:4)
    end;
  writeln
  end;
end.