Обработка литерных строк

[grib.oksanochka]

условие:
Напишите процедуру sortmid, которая сортировала бы ряд из n строк в алфавитном порядке,
основываясь на k-ой литере каждой строки, где k является параметром, передаваемым процедруре sortmid.
Например, если k=3, то элементы ряда должны быть отсортированы по возрастанию значения в третьей литере каждой строки.
Если длина строки меньше k, то будем предполагать что его k-й литерой, реально не существующей, служит пробел


Помогите расставить комментарии к задаче.

const
n=3;
type
text=array[1..n] of string;
var
k: integer;
a: text;

Procedure VVod(var a:text);
var i:integer;
begin
writeln ('Введите строки:');
for i:=1 to n do
readln (a[i]);
end;

Procedure sortmid(var a:text; k:integer);
var
i,j:integer;
c1,c2:char;

Procedure Obmen (m,l:integer);
var
st:string;
begin
st:=a[m];
a[m]:=a[l];
a[l]:=st
end;
begin
for i:=1 to n-1 do
for j:=1 to n-i do
begin
if length(a[j])>=k then
c1:=a[j][k]
else
c1:=' ';
if length(a[j+1])>=k then
c2:=a[j+1][k]
else
c2:=' ';
if c1>c2 then
Obmen(j,j+1)
end
end;

Procedure Vivod(a:text);
var
i:integer;
begin
for i:=1 to n do
writeln (a[i])
end;

Begin
VVod(a);
writeln ('Введите k');
readln(k);
Sortmid (a,k);
Vivod(a)
End.