Процедура ввода инф. в граф. режиме Опции

[credo2003]

М

Теги !

Добрый вечер! Помогите пожалуйста.
Программа компилируется без ошибок, но не запускается.
Выдает ошибку Cannot run a unit

Unit ExtGraph;
Interface
Function ReadString: String;
Implementation
Uses
CRT, Graph;
Function ReadString: String;
Var
S: String;
Ch: Char;
StartX, StartY: Integer;
begin
S:= '';
StartX:=GetX;
StartY:= GetY;
Repeat
Ch:=ReadKey;
Case Ch Of
#0: begin
 Ch:=ReadKey;
 end;
 #13: ;
 #8: If Length(S)>0
     Then
      begin
      Bar(StartX, StartY, StartX+TextWidth(S),
      StartY+TextHeight(S));
      S[0]:=Chr(Length(S)-1);
      OutTextXY(StartX, StartY, S);
      end;
      else
       begin
       S:=S+Ch;
       OutTextXY(StartX, StartY, S);
       end;
       end;
  Until Ch=#13;
  ReadString:=S;
  end;
  end.

Большое спасибо за помощь.

Сообщение отредактировано: klem4 - 18.09.2007 6:27