Текст и графика

Доброго Времени Суток!
У меня есть проблемка:
1) Есть типизированный файл
Type question = record
que:string;-это вопрос
vars:array[1..3] of string; варианты ответа
end;
...
var
f:file of question;
...
мне нужно считать из этого файла вопрос, варианты ответа и вывести этот текст в графическом режиме. Но как это сделать, если большая строка обрезается? Помогите плизз! И желательно сделать, чтобы она выводилась в определенном месте.
2) Написал процедуру для первого случая
в строке, где нужно сделать переносы, я ставлю символы #, она разбивается на подстроки и выводиться. Но вот проблема: Если строка до переноса больше строки после переноса, то вторая выводится с частью "мусора" первой строки. Что делать?
procedure WRTEXT( x,y,r:integer;str : string );
var
tmp:string;
i,j,k:byte;
begin
i:=0;j:=0;k:=0;
while i < length(str)+1 do
begin
inc(k);
while (str <> '#') and ( i < length(str)+1) do
begin
tmp[j]:=str;
inc(i);inc(j);
end;

OutTextXY(x,y + k*r,tmp);
j:=0;inc(i);tmp:='';
end;
end;