Помогите плиз с задачами на экзамен

[Astor]

Ребят завтра экзамен! помогите разобраться с небольшим количеством задачек! короче нужно написать строку и записать ее в тхт файл, как это осуществить? я с чтением из файла разобрался! вот код

program adf;
uses crt;
var txtfile:text;
S: String;
BEGIN
clrscr;
Assign(txtfile,'in.txt');
reset(txtfile);
readln(txtfile,S);
writeln(S);
readln;
end.

а как сделать так чтобы написал строку(например из чисел) и она записалась в файл? например out.txt ! и второе - как нарисовать звезду в паскале? помогите плиз, для вас это не составит труда

[puporev]

Записать в файл.

uses crt;
var f:text;
    s:string;
begin
clrscr;
assign(f,'Out.txt');
rewrite(f);
Write('s: ');readln(s);
write(f,s);
close(f);
writeln('Fail zapisan!');
readln
end.

Рисовать звезду.
Про работу с линиями прочитай во вложении.

program zvezda;
uses crt,graph;
type Tpoint=record
            x,y:integer;
            end;
var  i,x0,y0,R,R1,gd,gm:integer;
     p:array[1..11]of TPoint;
     a:integer;
begin
clrscr;
write('Vvedite vnutrennij radius R=');readln(R);
write('Vvedite vneshnij radius R1=');readln(R1);
InitGraph(gd,gm,'d\tp\bgi');
x0:=GetMaxX div 2;y0:=GetMaxY div 2;
a:=54;
for i:=1 to 10 do
  begin
    if i mod 2=0 then
      begin
        p[i].x:=x0+round(R1/2*cos(a*pi/180));
        p[i].y:=y0-round(R1/2*sin(a*pi/180));
      end
    else
      begin
        p[i].x:=x0+round(R*cos(a*pi/180));
        p[i].y:=y0-round(R*sin(a*pi/180));
      end;
    a:=a+36;
  end;
p[11].x:=p[1].x;
p[11].y:=p[1].y;
MoveTo(p[1].x,p[1].y);
SetColor(4);
for i:=1 to 11 do
LineTo(p[i].x,p[i].y);
readln;
RestoreCrtMode;
end.