Поиск с алфавитной индексацией

[maximorion]

Задание.

- задан массив символов, элементы которого должны быть введены с
клавиатуры;
- результатом работы программы поиска является либо строка
'элемент найден', либо 'элемент не найден';
- символ для поиска должен вводиться с клавиатуры;
- результат программы сортировки - исходный и отсортированный
массивы;
- количество элементов в массиве не менее 10.


Алгоритм: Поиск с алфавитной индексацией (количество символов в 1-ой строке: 3)


Поиск с алфавитной индексацией. Данный алгоритм налагает дополнительное ограничение - таблица должна быть отсортирована алгоритмом с алфавитной индексацией, т.е. строки, начинающиеся с одного и того же символа, должны быть сгруппированы и должен быть создан массив входов в таблицу. Поиск складывается из следующих шагов:
− из ключа поиска выделяется первый символ и преобразуется в номер (индекс) элемента массива входов;
− из заданного предыдущим шагом элемента массива входов
извлекается номер первой строки из группы начинающихся с данного
символа строк;
− выполняется линейный поиск в заданной группе строк.


Вот что у меня получилось. Помогите исправить/дополнить.


program rq;
var
a:array[1..26]of integer;
b:array[1..5]of string;
b1:array[1..5]of string;
s,key,y,w,q:string;
i,j,k,l,t,ind,x,c,n,p:integer;
f,z:char;
begin
writeln('Vvedite massiv');
for j:=1 to 5 do
begin
write ('b[',j,']=');
readln (b[j]);
end;

l:=1;
for j:=1 to 5 do
begin
s:=b[j];
f:=s[1];
i:=ord(f)-ord('a')+1;
if (a[i]=0) then
begin
a[i]:=l;
b1[l]:=b[j];
end
else
begin
n:=a[i];
for k:=5 downto n do
begin
if k=5 then q:=b1[5]
else b1[k+1]:=b1[k];
end;

for p:=1 to 26 do
begin
if (a[p]>n) then a[p]:=a[p]+1;
end;
b1[n]:=b[j];
end;
l:=l+1;
end;

for j:=1 to 5 do
writeln (b1[j]);

writeln ('vvedite iskomoe slovo');
readln (key);
z:=key[1];
ind:=ord(z)-ord('a')+1;
x:=a[ind];
for c:=x to 5 do
begin
y:=b1[c];
if y=key then
begin
writeln ('Iskomoe slovo');
write (y);
end;
end;

readln;


end.