ПОЖАЛУЙСТА!!!!Срочно помогоите с Pascal !!!Зачет горит. РЕшить не могу.

Первая задача:
var f:text;
k:integer;
s:string;
begin
assign(f,'c:/text.txt');
reset(f);
while not eof(f) do begin
inc(k);
readln(f,s);
end;
writeln('Строк в файле: ',k);
close(f);
readln;
end.

Вторая задача:
var f:text;
n,i:integer;
begin
assign(f,'C:/text1.txt');
rewrite(f);
while i < 10 do begin
inc(i);
write('Введите ',i,' число: ');
readln(n);
writeln(f,n);
end;
close(f);
readln;
end.

Третья задача:
var a:array[1..100] of integer;
i,j,n:integer;
begin
randomize;
write('N = ');
readln(n);
writeln('Исходный массив: ');
for i:=1 to n do begin
a[ i ]:=random(40)-20;
write(a[ i ]:4);
end;
writeln;
writeln('Упорядоченный по возрастанию массив: ');
for i:=1 to n do
for j:=i+1 to n do
if a[ i ] > a[ j ] then
begin
a[ i ]:=a[ i ]+a[ j ];
a[ j ]:=a[ i ]-a[ j ];
a[ i ]:=a[ i ]-a[ j ];
end;
for i:=1 to n do
write(a[ i ]:4);
writeln;
writeln('Максимальный элемент из первых двух: ');
writeln(a[ 2 ]);
readln;
end.

Четвертая задача:
var a:array[1..100] of integer;
i,j,n:integer;
begin
randomize;
write('N = ');
readln(n);
writeln('Исходный массив: ');
for i:=1 to n do begin
a[ i ]:=random(40)-20;
write(a[ i ]:4);
end;
writeln;
writeln('Упорядоченный по убыванию массив: ');
for i:=1 to n do
for j:=i+1 to n do
if a[ i ] < a[ j ] then
begin
a[ i ]:=a[ i ]+a[ j ];
a[ j ]:=a[ i ]-a[ j ];
a[ i ]:=a[ i ]-a[ j ];
end;
for i:=1 to n do
write(a[ i ]:4);
writeln;
writeln('Произведение первого и последнего элементов: ',a[ 1 ]*a[ n ]);
readln;
end.