[AND_REY]

Если по простому то так:

Код:

program Project1;
{$APPTYPE CONSOLE}
Uses SysUtils;
Var
 i, X: Integer;
 Yi: String;
 F: TextFile;
Begin
 Writeln('Vvedite k-vo peremennih:');
 AssignFile(F, ParamStr(0)+'.txt');
 Rewrite(F);
 Readln(X);
 For i:= 0 To X - 1 Do
  begin
   Writeln('Vvedite Y['+IntToStr(i+1)+']:');
   Readln(Yi);
   Writeln(F, Yi);
  end;
 CloseFile(F);
 Writeln('Peremennie Saved!');
 Readln;
end.