怎样在文本文件中插入空格，不使‘’(50分)

我想通过writeln方法向文本文件中写入三列数据，
每列数据左对齐，不足部分用空格补充，请问有没有插入空格的函数，
请问如何处理？

自己写个呗。
其中s为目标串，c为填充字符，num为返回字符串的总长。
function fillspace(s:string;c:char;num:integer):string;
var i:integer;
begin
for i:=1 to (num-length(s)) do
s:=c+s;
result:=s;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
label2.Caption :=fillspace(label1.Caption ,'a',10);
end;

你可能要自己去做一个函数，比如addspace(str1:string;length1:integer):string;
自己根据str1的长度与length1的差将str1用空格补到length1那么长。
再在writeln之前将您要写的数据用addspace处理一下。
注：即使您用空格补齐了，显示时可能不一致哟。

请问有没有插入空格的函数?
stringofchar(' ',n);
//n为空格数量