Написать 2 программы на Паскаль.

const
n = 4;

type
matrix = array[1..n, 1..n] of integer;

var
mas: matrix;
i, j, minj, maxj: integer;

//заполнение случайными числами
procedure randm(var a: matrix);
var
i, j: byte;
begin
for i := 1 to n do
for j := 1 to n do
a[i, j] := -20 + random(41);
end;

//вывод на экран
procedure writem(var a: matrix);
var
i, j: byte;
begin
for i := 1 to n do
begin
for j := 1 to n do
write(a[i, j]: 4);
writeln;
end;
end;

procedure minmax(var a: matrix; var minj, maxj: integer);
var
i, j, mini, maxi: byte;
begin
mini := 1; minj := 1;
maxi := 1; maxj := 1;

for i := 1 to n do
for j := 1 to n do
begin
if (a[i, j] < a[mini, minj]) then
begin
mini := i;
minj := j;
end;
if (a[i, j] > a[maxi, maxj]) then
begin
maxi := i;
maxj := j;
end;
end;
end;

procedure swap(var a: matrix; j1, j2: integer);
var
i, t: integer;
begin
for i := 1 to n do
begin
t := a[i, j1];
a[i, j1] := a[i, j2];
a[i, j2] := t;
end;
end;

//основная программа
begin
randomize;
randm(mas);
writem(mas);
minmax(mas, minj, maxj);
writeln('мин-ый эл. в ', minj, ' столбце');
writeln('мак-ый эл. в ', maxj, ' столбце');
swap(mas, minj, maxj);
writem(mas);
end.

1.

var
    s1, s2: string;
    a: array ['a'..'z'] of boolean;
    c: integer;
    k: char;
begin
    write('string #1? ');
    readln(s1);
    write('string #2? ');
    readln(s2);
    for c := 1 to length(s1) do if s1[c] in ['a'..'z'] then a[s1[c]] := true;
    for c := 1 to length(s2) do if s2[c] in ['a'..'z'] then a[s2[c]] := true;
    for k := 'a' to 'z' do if not a[k] then write(k);
end.

2. Студент хоть и бедный, но наглый. Для одного вопроса сразу две программы не жирно будет?

Конечно же за деньги?
Выучишься ты на программиста (если выучишься) , будешь сидеть и благотворительно всё делать.
Считай бесплатно из тебя невзъебенного программиста сейчас делаю, решишь сам, и за деньги решишь остальным студентам ну и опыт будет

Бедный студент, а воспользоваться гуглом не судьба? Все эти задачки однотипные и уже давно решены. Вторую задачку я на первом курсе точно делал.