две задачи в Pascal с текстовыми файлами

[student2008]

1. Дана строка S и текстовый файл. Заменить в файле все пустые строки на строку S.
2. Дан текстовый файл, содержащий таблицу из трех столбцов целых чисел. В начале и в конце каждой строки таблицы, а так же между ее столбцами располагается символ-разделитель. Ширина столбцов таблицы, способ их выравнивания и вид символа-разделителя являются произвольными. Создать файл целых чисел, содержащий сумму чисел из каждой строки исходной таблицы.

[Stilet]

Наработки есть? Это ведь не сложные задачи )

[student2008]

к сожалению наработок нет...

[Stilet]

Лана... Первую подскажу:
Смысл в том чтобы переписать из файла в файл с корректировкой, а потом переименовать корректированный файл

var q,w:text;s:string;
begin
 assign(q,'file1.txt');reset(q);
 assign(w,'file2.txt');rewrite(w);
 while not eof(q) do begin
  readln(q,s);
  if s<>'' then write(w,s);
 end;
 close(q);close(w);
 rename(w,'file1.txt');
end.

[student2008]

Спасибо!!!-1 задача