«Окно+символ». Создать класс, представляющий окно в текстовом режиме.

[RustreX]

Вообщем тут такая проблема: дали написать такую прогу, я написал её в дельфи, но препод сказал что нужно написать в паскале (или в консольном режиме Delphi, т.к. смысл задание сделать графику в текстовом режиме.). но в паскале у меня не пашет GoToXY, пытаюсь подключить WinCrt.TPU, но он его не находит. И то;е самое в консольном режиме в Delphi 7... помогите плиз есть у кого нить такая программа, или еслинетрудно напиши пожалуйста!

Вот задание:
«Окно+символ». Создать класс, представляющий окно в текстовом режиме. Основным методом класса должна быть процедура изображения окна и выводом в центре окна заданного символа. Окно должно отображаться в заданном пользовате-лем месте (координаты левого верхнего угла окна) и с заданными размерами. В ре-зультате работы программы на экране должно быть изображено окно и в центре окна заданный символ.

Т.е. вводятся положения окна, размеры окна и символ который нужно расположить в середине этого окна.
выглядит это примерно так:

|-..-|
...@..
|_.._|

Помогите пожалуйста! прога нужна до вторника!!! Спасибо огромное всем откликнувшимся!

[RustreX]

вот попрбвоал написать ща на делф в консольном режиме но он не хочет видеть GoToXY =(

program Project1;
type
Okni = class
private
x,y,s,v,sim: string;
public
constructor create(x1,y1,s1,v1,sim1:string);
function okno():string;
function simvol():string;

end;


constructor Okni.create(x1,y1,s1,v1,sim1:string );
begin
x:=x1;
y:=y1;
s:=s1;
v:=v1;
sim:=sim1;
end;

function Okni.okno():string;
begin
write('vvedite x=');
readln(x);
write('vvedite y=');
readln(y);
write('vvedite s=');
readln(s);
write('vvedite v=');
readln(v);
GoToXY(x,y); writeln('|-');
GoToXY(x+s,y); writeln('-|');
GoToXY(x,y+v); writeln('|_');
GoToXY(x+s,y+v); writeln('_|');
end;

Function Okni.simvol():string;
begin
write('vvedite simvol=');
readln(sim);
GoToXY(x+x+s,y+y+v); writeln(sim);
end;
{$APPTYPE CONSOLE}

uses
SysUtils;
var
fr,sm: okni;

begin
clrscr;
fr:=okni.create(x1,y1,s1,v1,sim1);
fr.okno;
fr.simvol;
readkey;
end.