Ответ: 3)
uses CRT;
const source: String = ''AAAA,AAA,AAAA,BBB,BBBB,CC,BBB,D,D,F.EE,EE.'';
max = 30;
TYPE
ArrayOfWords = array[1..30] of string;

procedure GetWords(s: String; var aw: ArrayOfWords; var count: Integer);
var i, m, k: Integer;
begin {находит число слов, записывает в aw те, которых еще нет}
count:=0; m:=length(s); if pos(''.'', s) < m then m:=pos(''.'', s)-1; {Обрабатывать только до точки}
i:=1;
while i <= m do begin
if (UpCase(s[i]) >=''A'') and (UpCase(s[i]) <= ''Z'') then
begin
count:=count+1; {очередное слово найдено}
aw[count]:= s[i];
while (i+1 <=m) and (s[i+1] <> '','') do begin
i:=i + 1;
aw[count]:= aw[count] + s[i]
end;
{проверяем, есть ли уже такое}
for k:=1 to count-1 do {проверка со второго слова}
if aw[k] = aw[count] then begin
count:=count - 1;
Break; {немедленный выход из цикла for}
end
end; i:= i + 1; end end;

procedure PrintWords(aw: ArrayOfWords; count: Integer);
var i: Integer;
begin for i:=1 to count do WriteLn(i:3,'') '',aw[i]); end;

var a: ArrayOfWords; c: Integer;
BEGIN
ClrScr; GetWords(source, a, c); PrintWords(a, c);
END.

Ответ: По четвертой задаче не понятно, что понимать под "символьной последовательностью", "коректно"?
И как "обрабатывать"?
А в третьей: исходная строка может содержать иные сиволы? (кроме латинских букв, запятых и точек) - то есть, пробелы, например ...

Ответ: 2)
const N = 10; coeff = 12.0;
TYPE matrics = array[1..N, 1..N] of Real;
arr = array[1..N] of Real;

procedure FillMatrics(var m: matrics);
var i, j: Integer;
begin
for i:=1 to N do
for j:=1 to N do
m[i,j]:=random*coeff; end;

procedure ShowMatrics(m: Matrics);
var i, j: Integer;
begin
for i:=1 to N do begin
for j:=1 to N do Write(m[i,j]:8:4);
WriteLn end; end;

procedure GetMids(m: Matrics; var mid: arr);
var i, j: Integer;
begin
for i:=1 to N do begin
mid[i]:=0; for j:=1 to N do mid[i]:=mid[i] + m[i,j];
mid[i]:= mid[i]/N
end; end;

VAR
matr: matrics; mids: arr; i: Integer;
BEGIN
FillMatrics(matr);
ShowMatrics(matr);
GetMids(matr, mids);
for i:=1 to N do
WriteLn(''В строке '',i:3,'' среднее арифметическое '', mids[i]:12:4);
END.

Ответ: 1)const max_elem : Integer = 20;
TYPE
TArray = array[1..max_elem] of shortint;

procedure FillArray(var ar:TArray; var count: Integer);
begin
{Здесь можно вставить запрос сколько ввести}
count:=0;
while count < max_elem do
begin
count:= count + 1;
ar[count]:= random(255) - 128;
end; end;

procedure ShowArray(ar: TArray; count: Integer);
var i: Integer;
begin
for i:=1 to count do Write(ar[i]:8); Writeln
end;

function Get(ar: TArray; count: Integer; minel, maxel: shortint): Integer;
var c, i: Integer;
begin
c:=0;
for i:=1 to count do
if (ar[i] >= minel) and (ar[i] <= maxel) then c:=c+1;
Get:=c
end;

VAR a: TArray; no: Integer; mi, ma: shortint;
BEGIN
FillArray(a, no);
ShowArray(a, no);
mi:=-20;
ma:=+100;
WriteLn(''Число элементов в интервале ['',mi,'', '',ma,''] равно: '' , Get(a, no, mi, ma));
END.

Ответ: const
Nmax = 10;
TYPE TMatrics = array[1..Nmax, 1..Nmax] of integer;

procedure FillMatrics(var M: TMatrics);
var i, j: Integer;
begin
for i:=1 to Nmax do for j:=1 to Nmax do M[i,j]:=i*j end;

procedure ShowMatrics(M: TMatrics);
var i, j: Integer;
begin
for i:=1 to Nmax do for j:=1 to Nmax do
Write(M[i,j]:8); WriteLn; end;

function Sum(M: TMatrics): longint;
var S: Longint; i, j: Integer; MaxNo: Integer;
begin
S:=0; for i:=1 to NMax do begin
MaxNo:=1;
for j:=2 to NMax do if M[i,j] > M[i, MaxNo] then MaxNo:=j;
S:= S + M[i, MAxNo]
end; Sum:=S end;

procedure ShowMax(M: TMatrics);
var i, j: Integer; maxNo: Integer;
begin
for i:=1 to Nmax do begin
maxNo:=1;
for j:=2 to Nmax do if M[i,j] > M[i, MaxNo] then MaxNo:=j;
WriteLn(M[i, maxNo]:8,'' '',i:4,'' '',maxNo:4);
end; end;

VAR Matr: TMatrics;
BEGIN
FillMatrics(Matr); ShowMatrics(Matr); ShowMax(Matr); WriteLn(Sum(Matr));
END.

Ответ: Это что такое "экономический тест с графикой"?

Ответ: А в чем проблемы видите? По-моему, все элементарно

Ответ: Убери строчку
initgraph:(gd,gm, ''D:tp7tp7'');
Нечто подобное МОЖЕТ НАХОДИТЬСЯ только в исполняемом блоке программы, а у Вас в разделе переменных. Да и выполняет инициализацию графического режима. У Вас - текстовый - только там есть ClrScr, GotoXY ...

Ответ: в формате DOS - 8 символов имя и 3 символа расширение = максимум. Поэтому длинные имена "искажаются".

Ответ: 1) Среда разработки программ должна "видеть" модуль (unit) - файл с именем Graph.tpu. Для этого в меню Options - Directories - Unit directories нужно написать полный путь к файлу - модулю. Найдите и напишите в формате DOS. У меня C:BPUNITS
2) В 46 строке initgraph(gd,gm,''D:tp7tp7'');
вместо ''D:tp7tp7'' нужно написать путь к файлу EGAVGA.BGI, или оставить пустой, но скопировать этот файл (дравер) в тот директорий, где исходник Ваш