Не могу найти ошибки в задачах

[Кипятилка]

написала 3 задачи, 2 не работают, одна работает не совсем правильно, помогите исправить, плз:
1. Дана действительная квадратная матрица порядка n. Преобразовать матрицу по следующему правилу: строку с номером n сделать столбцом с номером n, а столбец с номером n строкой с номером n.

 var a: array [1...n] of array [1...n] of integer;(здесь ошибку показывает)
   n,m,k,j,tmp:integer;
  begin
  randomize;
  Writeln('vvedite razmer matricy - n:');
  Readln(n);
  for j:1 to n do begin
  tmp=mas[k,j];
  writeln('ishodnaya matrica',tmp);
  mas [k,j]=mas[j,k];
  mas[j,k]=tmp;
  write('preobrazovannaya matrica',tmp)
    end;

2.	Дана строка текстов. Найти слова, состоящие только из согласных букв и вывести их на экран. 
Uses Crt;
const gl=['a','A','e','E','o','O','i','I','y','Y','u','U'];
var S,S1,S2,S3: string;
i:integer;
begin
clrScr;
randomize;
repeat
S1:=Pos(' ',S);(ошибка)
i:=1;
S2:=S1-1;
S3:=(i,S2);
if (not(S3 in gl))then
writeln(S3);
until
lenght(S3)=0;
end.
3.	Вычислить сумму 1! + 2! + 3! + … + … n! Вычисление числа k! организовать в виде подпрограммы.(здесь выводится не сразу вся сумма факториалов, а по очереди:сначала1!, потом1!+2!,1!+2!+3! и т.д., а мне только конечную сумму вывести нужно)

program P_3;
uses crt;
var k,s,i,n:integer;
        function fact(k:real):integer;
        begin
              k:=(k-1)*k;
        end;
  begin
clrscr;
   write('Vvedite celoe chislo  n=');
  readln(n);
    s:=0;
  for i:= 1 to n do begin
  s:=s+fact(i);
  writeln('summa factorialov =',s);
readln;
end;

end.

[Stilet]

var a: array [1...n] of array [1...n] of integer;(здесь ошибку показывает)
n,m,k,j,tmp:integer;

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

 
Const n=20;
var a: array [1...n] of array [1...n] of integer;
   m,k,j,tmp:integer;

[NSvirus]

var a: array [1...n] of array [1...n] of integer;(здесь ошибку показывает)

не указан размер массива, если массив заранее неизвестен пользуйтесь динамическим массивом, или исправьте так:

const
 n=...
var a: array [1..n] of array [1..n] of integer;

3. Вычислить сумму 1! + 2! + 3! + … + … n! Вычисление числа k! организовать в виде подпрограммы.(здесь выводится не сразу вся сумма факториалов, а по очереди:сначала1!, потом1!+2!,1!+2!+3! и т.д., а мне только конечную сумму вывести нужно)

program P_3;
uses crt;
var k,s,i,n:integer;
function fact(k:real):integer;
begin
  k:=i*k;
  fact:=k;
end;
 begin
 clrscr;
 write('Vvedite celoe chislo n=');
 readln(n);
 s:=1; k:=1;
 for i:= 2 to n do
  s:=s+fact(i);
  writeln('summa factorialov =',s);
 readln;
end.

[Кипятилка]

(3) fact:=k;, тогда здесь ошибка.
(1)даже так там же ошибка, ему троеточие не нравится(попробовала все варианты)

[Anatole]

Const n=20;
var a: array [1..n] of array [1..n] of integer;

по синтаксису должно быть двоеточие$

function fact(k:integer):integer;