Использование указателей и динамической памяти

[Black_butterfly]

Здравствуйте! Подправьте, пожалуйста, ошибку

Дана матрица целых чисел размером 4x3. Отсортировать каждую строку матрицы по возрастанию. Вывести содержимое матрицы до обработки и после обработки.

Program MyProg2;
uses crt;
Const
m=4;  {m stroka}
n=3;  {n stolbec}
Type
mas = array [1..m,1..n] of integer;
var
a:^mas;
i,k,j:integer;
t:^integer;
begin
new(a); new(t);
writeln('Исходная матрица:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a^[i,j]:=random(10);
write(a^[i,j]:2);
end;
writeln;
end;
writeln;
 
for i:=1 to m do
begin
for k:=1 to (n-1) do
for j:=k+1 to n do
begin
if (a^[i,k]>a^[i,j]) then
begin
t^:=a^[i,j];
a^[i,j]:=a^[i,k];
a^[i,k]:=t^;
end;
end;
end;
writeln;
 
writeln('Полученная матрица');
for i:=1 to m do
begin
for j:=1 to n do
write(a^[i,j], ' ');
writeln;
end;
dispose(a);dispose(t);
end.

И еще одна задачка с множеством

Дан текст на русском языке. Напечатать в алфавитном порядке все согласные буквы, которые входят только в первое слово.

Program mn; 
uses crt; 
type let='а'..'я'; 
var sogl:set of let; 
text: set of char; 
c:char; 
s:string; 
i:byte; 
begin 
writeln('введите текст, заканчивающийся  точкой'); 
readln(s); 
if s[length(s)]<>'.' then s:=s+'.'; 
text:=[]; 
sogl :=['б','в','г','д','ж','з','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ']; 
repeat 
if s[i] in sogl then text:=text+[s[i]]; 
i:=i+1; 
until s[i]='.'; 
for c:='a'  to 'я' do if c  in text then write(c); 
readln; 
end.

Ой, сорри, с первой справилась.Взгляните,пжл, вторую задачу)

[malinoff]

Можно хранить массив не согласных, а гласных букв И проверять не принадлежность,а наоборот, непринадлежность
Ну, и не знаю, как паскаль интерпретирует символы,в ASCII-таблице между "а" и "я" есть разрыв.

[Black_butterfly]

Сообщение от malinoff

Можно хранить массив не согласных, а гласных букв И проверять не принадлежность,а наоборот, непринадлежность
Ну, и не знаю, как паскаль интерпретирует символы,в ASCII-таблице между "а" и "я" есть разрыв.

а поподробнее, если можно, желательно кодом

[malinoff]

Сообщение от Black_butterfly

а поподробнее, если можно, желательно кодом

http://ascii.org.ru/
Разрыв между "п" и "р"