Błagam pomocy!

[mirka 0]

Witam:)

Mam wielki problem z którym nie mogę sobie sama poradzić. Mianowicie chodzi o turbo pascala i zadanie jakie muszę zrobić na najbliższą sobotę treśc zadania brzmi następująco:

Dla zadania wykonanego na ostatnich zajęciach wykonać:

- parametry pracy programu takie jak:

 

* znak wyswietlany na ekranie

* klawisze sterujące

* rozmiar okna

 

- należy przenieść do pliku konfiguracyjnego (tekstowego) i pobierać z niego dane podczas uruchomienia programu.

* --

Jeżeli rozmiar okna będzie mniejszy niż 78x22 to należy wokół obszaru narysować ramkę, z zakotwiczeniem do lewgo górnego narożnika.

 

 

No zadanie które robiliśmy na poprzednich zajęciach ma taką treść:

 

program g;

uses crt;

var X, Y: byte;

Znak: Char;

procedure Przesun(dX, dY: Integer);

begin

if (X+dX >=1)and(X+dX <=80) and

(Y+dY >=1)and(Y+dY <=24) then

begin

GoToXY(X,Y); write(' ');

X:=X+dX; Y:=Y+dY;

GoToXY(X, Y); write('*')

end

else

begin

Sound(1000); Delay(1000); NoSound;

end;

end;

 

begin

clrscr;

GoToXY(1,25);

write('W - gora, Z - dol, A - lewo, S - prawo, K - koniec');

X:=10; Y:=10;

Przesun(0,0);

repeat

Znak:=ReadKey;

case Upcase(Znak) of

'W': Przesun (0,-1);

'Z': Przesun (0,1);

'A': Przesun (-1,0);

'S': Przesun (1,0);

else

begin

Sound(1000); Delay(1000); NoSound;

end;

end;

until Upcase(znak)='K';

 

end.

 

 

 

Będę niezmiernie wdzięczna za szybką pomoc!!!

Pozdrawiam!