Множества и записи! Опции

[Rzevsky]

Помогите, кто чем может! Во вторник экзамен, а мне нужно ещё несколько заданий доделать. Вроде рагьше писал, похожие программы, а вчера сел и понял, что всё забыл. Задачи такие:
1. На плоскости заданы n точек, определить между какими самое большое растояние. Я найти растояние только между соседними точками, подскажите как проверить все комбинации.
2. Среди работников данного предприятия найти тех, чья з/п ниже средней, а так же распечатать список тех, которые на предприятии более 10 лет с указанием з/п, фамилии, стажа и должности.
3. Дан массив, содержащий информацию об учениках, выяснить на сколько человек в 8-х классах больше чем в 9-х.
4. Опишите матрицу А размером 100х200 элементов типа char. Заполнить её процедурой FillChar (А, 2000, 'х').
5. Составить программу размещения ДРП, строка за строкой, треугольной матрицы размером N, в i-той строке которой i компонетнтов типа word, i=1,2,3,..,N. Занесите в элемент массива Mem N соответственно. Извините за нечёткие фразы, просто мне так переписали задание(.
6. Создать окно в рамке  на фоне, заполненном псевдографическим символом #176 синего цвета, с текстом из файла. Выполнять перемещение окна вверх, вниз, вправо или влево с сохранением фона по клавишам управления курсором.

Пожалуйста помогите! Я отблагодарю!.   :'(

[dushik]

Вот нафигачил третью:

Код

uses crt;
type
   base=record
              name:string;
              fam:string;
              klass:byte;
   end;
const
    n=100;
    na:array[1..5] of string=('Vasya','Andrey','Sasha','Petya','Misha');
    fa:array[1..5] of string=('Petrov','Ivanov','Sidorov','Vasechkin','Gulkin');
var
  school       :array[1..n] of base;
  i,k8,k9       :integer;
begin
clrscr;
randomize;
for i:=1 to n do
   begin
        school[i].name:=na[random(4)+1];
        school[i].fam:=fa[random(4)+1];
        school[i].klass:=random(10)+1;
   end;
k8:=0; k9:=0;
for i:=1 to n do
begin
    if (school[i].klass=8) then k8:=k8+1;
    if (school[i].klass=9) then k9:=k9+1;
end;
writeln('razniza uchenikov 8-ogo i 9-ogo klassa = ',abs(k8-k9));
readln;
end.