построить розу ветров из 8 направлений и вывести направления

[Babur4iK]

Здравствуйте.помогите чем можете!!!

вообщем задача построить розу ветров из 8 направлений и вывести направления

я тут сделал кое-что:

uses crt,graphABC;
const
n=8;
napr:array[1..n] of string=('N','NW','W','SW','S','SO', 'O','NO');//ìàññèâ íàïðàâëåíèé
type
Roza=record //òèï çàïèñü - ðîçà
skr:byte;//ñêîðîñòü
npr:string;//íàïðàâëåíèå
end;

var sk:array[1..n] of Roza;//ìàññèâ ñêîðîñòåé è íàïðâëåíèé

i, h:integer;


begin
clrscr;
writeln('Vvedite skorosti po napravleniyam(0-50):');
for i:=1 to n do
begin
sk[i].npr:=napr[i];//íàïðàâëåíèå èç ìàññèâà
repeat

write('sk[',i,']=');//ñêîðîñòü ââîäèì
readln(sk[i].skr);
until sk[i].skr in [0..50];

end;
clrscr;

writeln;
for i:=1 to n do
write(sk[i].skr:4);//âûâîäèì íà ýêðàí, ïîñìîòðåòü
writeln;
write('Press Enter...');
readln;
h:=5;
line(320,250,320,250-h*sk[1].skr);
line(320,250,320,250+h*sk[2].skr);
line(320,250,320-h*sk[3].skr,250);
line(320,250,320+h*sk[4].skr,250);
line(320,250,Round(320-h*sk[5].skr*sqrt(h/2)),Round(250-h*sk[5].skr*sqrt(h/2)));
line(320,250,Round(320+h*sk[6].skr*sqrt(h/2)),Round(250-h*sk[6].skr*sqrt(h/2)));
line(320,250,Round(320-h*sk[7].skr*sqrt(h/2)),Round(250+h*sk[7].skr*sqrt(h/2)));
line(320,250,Round(320+h*sk[8].skr*sqrt(h/2)),Round(250+h*sk[8].skr*sqrt(h/2)));
end.

Проблема в том ,что не могу дорисовать на розе ветров еще две линии,идея есть : round (sqrt(h/2)); но не получается

вот и еще не могу вывести направление.т.е чтобы после линии там выводилось направаление там S ,Т и т.д,короче оси подписать!!!

помогите чем можете

вот сделал оси две

теперь проблема надо их подписать как хоть это сделать?