помогите с паскалем

[faster]

1) В ходе выполнения программа должна запрашивать имя файла(ов) с исходными данными, проверять корректность открытия каждого файла, а также корректность формата исходных данных.
При написании программы использовать пользовательские процедуры и функции.
Дан текстовый файл. С клавиатуры вводятся число N1, строка S1, число N2. В тексте, начиная с позиции N1, вставляем строчку S1. Пропускаем N2 символов, снова вставляем и т.д. до конца файла. Количество замен и их позиции выводим на экран.

2)Сформировать динамический список, элементами которого являются целые числа (в вариантах заданий - это элементы массива).
Выполнить задание не создавая массив, а с использованием динамического списка.
В процессе выполнения программа должна отслеживать и выводить на экран объем свободной памяти до создания списка, в процессе работы над ним (если удаляются или добавляются элементы), а также в конце программы.
В массивее А = ( а1, а2, . . . аn ) все положительные элементы , начиная со второго положительного, отправить в хвост массива .
( Новый массив не создавать ).

помогите пожалуйста, кто чем сможет....

[МаксимNEWProgramm]

задача 1)
если правильно понял то задача будет работать если только N1>=N2

uses crt,dos;
var f,f2:text;a,s1,b,s2:string;n1,n2,i,j,l,k:longint;
begin
clrscr;write('Ukazivaite nazvanie direktivi:');
      readln(a);writeln;{EXAMPLE:C:\INPUT.txt}
      assign(f,a);reset(f);
      read(f,s1);close(F);
      write('Vvodim N1=');readln(n1);writeln;
     { write('Vvodim stroku S1=');readln(s1);writeln;}
      write('Vvodim N2=');readln(n2);writeln;
i:=n1;
while i<length(s1) do
begin
       insert(s1,s1,i);
       i:=i+n2;
end;assign(f2,'c:\output.txt');
rewrite(f2);write(f2,s1);close(f2);
readkey;
end.

[кася]

Все массивы являются статическими. Программа должна предусматривать быструю смену размерности рабочих массивов с внесением минимальных изменений в код программы. Для заполнения значений исходного массива допускается использование генератора случайных чисел. Исходные данные вывести на экран. Результат вычислений вывести на экран.
Задача: Дана матрица B(N,M) (N≤M, M≤13). Найти сумму элементов каждого столбца матрицы. Сформировать массив D из найденных сумм.

[-=<[Evklidd]>=-]

Вот ваша задача:

program matr;
var
 B: array [1..13,1..13] of integer;
 D: array [1..13] of longint;
 m, n, j, i: integer;
begin
 Randomize;
 writeln('Vvedite m <= 13: ');
 write('m= ');
 readln(m);
 writeln('Vvedite n <= m: ');
 write('n= ');
 readln(n);
 for j:= 1 to n do
  begin
   for i:= 1 to m do
    begin
     B[j,i]:= random(200)-100;
     write(B[j,i],' ');
    end;
   writeln('');
  end;
 for i:= 1 to m do
  begin
   for j:= 1 to n do
    begin
     D[i]:= D[i]+B[j,i];
    end;
   end;
 writeln('Summu stolbcov: ');
 for i:= 1 to m do
  begin
   write(i,' stolbec: ', D[i],' ');
  end;
 readln;
end.

Писал второпях, так что если чо не так - поправим