[DiGer911]

Код:

type mas = array [1..9] of string[20];
const stor: mas = ('1','2','3','4','5','6','7','8','9' );
       var
       i,k: byte;
       n,kod: char;
    begin
        clrscr;
        writeln('   название   ');
        Kod:=' ';
        while kod<>#27 do
           begin
               for i:=1 to 9 do 
                                   begin
                                if I=K then begin
                                              textbackground(5);
                                              textcolor(0);
                                   end
                                   else 
                                   begin
                                               textbackground(0);
                                               textcolor(15)
                                   end;
                                gotoxy(1,i+1);
                                write(stor[i]);
           end;

kod:=readkey;{передвижение клавишей вверх}
if kod=#0 then
          begin
              kod:=readkey;
              if kod=#72 then
              if k>1 then k:=k-1 else k:=9;
              if kod=#27 then
          end;
kod:=readkey;
if kod=#0 then
          begin
                   kod:=readkey;{передвижение клавишей вниз}
                   if kod=#80 then
                   if k>1 then k:=k+1 else k:=k-1;
                   if kod=#27 then
          end;
    end;
end.

вот обновил немного код,пока что работает только перемещение,т.е перемещение для выбора нужной строчки,но тоже с проблемами,только снизу вверх и нужно нажимать 2раза на клавишу вверх или вниз.проверьте в паскале сами поймете что к чему.
я сам с трудом понимаю как работает,т.к взял половину изходника из другой задачи,но решить както это надо!нам это ничего непреподавали а сделать надо!вот и хожу по форумам
помогите чем можете пожалуста