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

[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) הנתון ע"י המשתמש באמצע המסך.
כרגע, מציג - במסך בפינה השמאלית למעלה.

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

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

[בניה]

אתה מצייר את המספרים עם איזשהו תו אחר ואתה רוצה לצייר אותם במרכז המסך ואתה רוצה לדעת איך לחשב את זה?

[FreshServ.Net]

כן...
אני רושם למשתמש להכניס גודל ותו.
ואז הערכים נכנסים לפרוצדורות.
לכל מספר יש פרוצדורה משלו כאשר היא מציירת את המספר עם התו שנבחר (לדוגמא *) ובגודל שנבחר (אם בחרו 5 אז זה 5 על 5).

הבעיה היא שאני לא יודע איך לעשות שאותו דבר יהיה באמצע המסך...(האם לשים את הפרוצדורה getxy ו gotoxy בתוך הפרוצדורות של המספרים? - אז זו בעיה כי צריך לבדוק כל לולאה שנמצאת באותם פרוצדורות).

או לחלופין במקום אחר?

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


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

מבחינת מבנה:
פרוצדורות של מספרים - כל מספר שבניתי.
פרודורת kindofnum - כאשר הוא מובנה מcase of שמקבל ערך ולפיו פונה לאחת מהפרוצדורות הנאמרו לעיל.
ובבגין של התוכנית - מקבל את הזמן באמצעות gettime, ואז מפרק את הh m s לעשרות ויחידות ואז לכל אחד מהם עושה kindofnum.

[FreshServ.Net]

עדכון -
הצלחתי להעביר לאמצע באמצעות gotoxy...
הבעיה היא שהכנסתי קורדינטות מסויימות...כשאני משנה את גודל הספרות נגיד מ5 על 5 ל 7 על 7 אז הן מתחרבשות...
איך אני יכול לקבל קורדינטות של מרכז המסך בלי שיתחרבש?