Задача на Текстовые файлы. Паскаль

[qwertytol]

Добрый вечер, форумчане-программисты. Очень нужна ваша помощь в решении следующих задач.
1) Определить массив Y=X2-X, где X=2.0, 2.2, ...12. Выделить массив положительных значений Yp и вывести его в файл в 5 колонок.

2) 1-ый непустой текстовый файл разбит на строки, длина которых не превосходит 80. Записать содержимое 1-ого файла во 2-ой, дополняя строки 1-ого файла символами "_" до 80.

Ps завтра здавать, и немного осталось.
heelp

[VadEr]

№2

const
   {здесь указать имена файлов}
   f_name1=
   f_name2=
var
   f1,f2:Text;
   str:string;
   i,l:byte;
begin
   Assign(f1, f_name1);
   Assign(f2, f_name2);
   Reset(f1);
   Append(f2);
   While not EOF(f1) do
   begin
      readln(f1, str);
      l:=Length(str);
      write(f2, str);
      for i:=(80-l) to 80 do write('_');
      writeln(f2);
   end;
   Close(f1);
   Close(f2);
end.

[qwertytol]

Спасибо, тема больше не актуальна...
Актуальна эта