Поправить исходники [Pascal]

const n=3;
type arstr=array[1..n]of string;
var i,j,k: integer;
    mas: arstr;

procedure readmas (var mas:arstr);
  var i:integer;
  begin
    writeln('Введите строки:');
    for i:=1 to n do
      begin
        write('Строка №',i,': ');
        readln(mas);
      end;
  end;

procedure inputK (var k:integer);
  var kchar:char;
  begin
    writeln ('Введите литеру'); readln(kchar);
    k:=ord(kchar);
  end;

procedure sortmid(var mas:arstr;n,k:integer);
  var i,j:integer;
     h:string;
     ci,cj:char;
  begin
  for i:=1 to n-1 do
    for j:=i+1 to n do
      begin
        if length(mas)>=k then
          ci:=mas[i,k]
        else
          ci:=' ';
        if length(mas[j])>=k then
          cj:=mas[j,k]
        else
          cj:=' ';
        if ci>cj then
          begin
            h:=mas;
            mas:=mas[j];
            mas[j]:=h;
          end
      end;
  end;

begin {main}
  {обращение к русскому языку}
  setconsoleCp(1251);
  setconsoleOutputCp(1251);

  {ввод}
  readmas(mas);
  inputK (k);

  {обработка}
  sortmid(mas,n,k);

  {вывод}


  readln;
end.

const n=2;
type matr=array [1..n,1..n] of real;
     mas= array [1..n] of real;
var i: integer;
    a: mas;    //искомая последовательность
    x: matr;  //матрица
procedure readmatr (var x:matr);  //процедура ввода матрицы
  var i,j:integer;
    begin
      writeln ('Введите матрицу положит и отриц чисел');
      for i:=1 to n do
        for j:=1 to n do
          read(x[i,j]);
      readln;
    end;

procedure build (x:matr;var a:mas); //процедура построения последовательноста
  var i,j,k:integer;
  begin
    for i:=1 to n do
      begin
        for j:=1 to n do
          begin
            if (i=j) and (x[i, j]<0) then  //для отриц чисел
              begin
                a:=0;
                for k:=1 to n do
                  if x[i, k]>0 then
                    a:=a+x[i, k];
              end;
            if (i=j) and (x[i,j]>0) then   //для положит чисел
              begin
                a:=1;
                for k:=1 to n do
                  if x[i, k]<0 then
                    a:=a*x[i, k];
              end;
          end;
      end;
  end;

begin {main}
  {обращение к русскому языку}
  setconsoleCp(1251);
  setconsoleOutputCp(1251);
  {ввод}
  readmatr(x);
  {обработка}
  build(x,a);
  {вывод}
  writeln;
  writeln ('Ответ:');
  for i:=1 to n do
    begin
      write('a[',i,']=');
      writeln (a:4:2);
    end;
  readln;
end.

type
 число = 1..31;
 месяц = (янв, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек);
 день_недели = (вс, пн, вт, ср, чт, пт, сб);
var
 d:число;
 m:мечяц;
 wd1, wd:день_недели;
 k:0..12;