Редактирование текста. Нужна помощь!

[quf]

Прошу помочь разобраться. Текст задан как массив строк. Над каждой строкой нужно провести следующие действия:
- удалить символ в любом месте строки
- вставить символ в любом месте строки
Также добавление/удаление строки в массиве строк.
Эти действия нужно выполнять с помощью управляющих клавиш- влево, вправо, вниз, вверх, Del, Ins, Backspace

program Text_Editor;
uses Crt;

Const N_Max=256;

Var
str:array[0..N_Max] of string[80];
ch:char;
f,f1:text;
S,S1,S2:string;



Procedure Edit_Text;
Var l,m:byte;q:integer;
Begin
clrscr;
Write('Vxod '); Readln(S1);
Write('Vihod '); Readln(S2);
Assign(f,s1);
Assign(f1,s2);
Reset(f);
Rewrite(f1);
While not EOf(f) Do
Begin
clrscr;
l:=0;
Repeat
l:=l+1;
ReadLn(f,str[l]);
Until (l=N_Max) or EOf(f);
For m:=1 To l Do
repeat
writeln(str[m]);
Ch:=readkey;
Case Ch Of
#8:... {backspace}

#82:... {Ins}

#83:... {Del}

#72:... {up}

#75:... {left}

#77:... {right}

#80:... {down}
end;
until ch=#13;
end;
close(f);
close(f1);
End;

begin
Edit_Text
end.

[Stilet]

#72:... {up}
#75:... {left}
#77:... {right}
#80:... {down}

Меняй позицию придуманного тобой курсора

#8:... {backspace}
#83:... {Del}

Это работа для delete в позиции придуманного тобой курсора, и в позиции -1 от него

#82:... {Ins}

Это работа для Insert в позиции придуманного тобой курсора.

[quf]

Сообщение от Stilet

Меняй позицию придуманного тобой курсора


Это работа для delete в позиции придуманного тобой курсора, и в позиции -1 от него

Это работа для Insert в позиции придуманного тобой курсора.

Не ты не так понял. Код управляющих клавиш мне не нужен..Мне нужно сделать выполнение этих действий(например "пробежка" по строке, сам принцип работы...на форуме поискал ничего не нашел

[alexBlack]

Stilet как раз и описал принцип

Меняй позицию придуманного тобой курсора

Отобрази на экране массив строк.
Создай переменные для хранения позиции курсора (X, Y) и установи в это место курсор.

При нажатии стрелок X+/-1 или Y+/-1 и переводи курсор в это место.

То-же для delete. В позиции (X,Y) удаляешь символ и отображаешь массив строк заново.