עזרה דחופה ביותר! - פסקל

[FreshServ.Net]

שלום,
לפרוייקט אני צריך לבנות שעון שירוץ במרכז המסך כאשר המשתמש מכניס את הגודל של המספרים וכן את התו שבאמצעותו הספרות תיוצגנה.

רציתי לדעת, כיצד אני משתמש בפרוצדורה
gotoxy על מנת להגיע למרכז המסך.

(לא באמצעות מספרים נתונים) אלא באמצעות גודל נתון.

לדוגמא,

הפרוצדורה:

procedure shura(godel:integer;tav:char);
var
l:integer;
begin
for l:=1 to godel do
write(tav);
gotoxy(wherex - godel,wherey + 1);
end;

אני רוצה שיציג לי אותה עפ"י הערך (godel) הנתון ע"י המשתמש באמצע המסך.
כרגע, מציג - במסך בפינה השמאלית למעלה.

תודה רבה לעוזרים!

אם מישהו לא הבין משהו שיגיד ואסביר שנית.
המשך יום נעים.