Используя цикл с предусловием написать программу вычисления n! (эн факториал)

Var i,n,f: integer; begin   readln(n);   i: =1;   f: =1;   while i< =n do   begin       f: =f*i;       i: =i+1;   end;   writeln(f);   end.

Var q: string; a,i,z,g,b,x,m: integer; begin z: =0; g: =1; readln(q,a,b,x,m); for i: =1 to length(q) do begin z: =z+q[i]; end; if z< a then writeln('верно, что сумма цифр меньше а') else writeln('неверно, что сумма цифр меньше а'); for i: =1 to length(q) do begin g: =g*q[i]; end; if g> b then writeln('верно, что произведение цифр больше b') else writeln('неверно, что произведение цифр больше b'); if x=length(q) then writeln('верно, что число x значеное') else writeln('неверно, что число x значное'); if q[0]> m then writeln('верно, что его первая цифра превышает m') else writeln('неверно, что его первая цифра превышает m') end.

//компилятор мне выдаёт ошибку, но покажи учителю хоть что-то, чем совсем ничего.

program one;

var

  i: integer;

  a: integer;

  mas: array [-7..7] of integer;

begin

  writeln('исходный массив: ');

  for i: =-7 to 7 do

    begin

    a[i]: = random(-7,7);

    write(a[i]: 7);

    end;

  writeln();

  for i: =-7 to 7 do

    if a[i]=7 then a[i]: =1;

  writeln('преобразованный массив: ');

    for i: =-7 to 7 do

    write(a[i]: 7);

end.