Найти все делители числа 1234

Program asdasd;
Uses crt;
const N = 1234;
Var i:integer;
Begin
  Writeln('Äåëèòåëè ÷èñëà ',N,': ');
  for i:=1 to N do
  begin
    if N mod i = 0 then
    if i <> N then
      Write(i,',') else
      Write(i,'.');
  end;
end.

Program asdasd;
Uses crt;
const M = 4;
Var word,st:string;
    i:integer;
    f:boolean;
begin
  Write('Введите строку: ');
  ReadLn(st);
  repeat
    Write('Введите слово,не более ',M,' символов: ');
    ReadLn(word);
  until Length(St) >= M;
  f:=True;
  
  for i:=1 to Length(Word) do
  begin
    if pos(Word[i],St) = 0 then
    begin
      F:=false;
      break;
    end;
  end;
 
  if F then
    WriteLn('В строке "',st,'" есть все буквы слова "',word,'"')  else
    WriteLn('В строке "',st,'" нет  всех букв слова "',word,'"');
  ReadLn;
end.

{Дан целочисленный массив А, размерностью n. Среди элементов массива есть хотя
бы один отрицательный. Найти сумму S элементов,
расположенных после отрицательного элемента.
}
 
Program OOO;
Uses crt;
const N = 100;
type Mas = array[1..N] of integer;
 
Function IsOtric(X:Mas; K:integer):boolean;
Var i:integer;
    f:boolean;
begin
   F:=false;
   for i:=1 to K do
     if X[i] < 0 then
     begin
       F:=True;
       Break;
     end;
   Result:=F;
end;
 
Function GetFirstOtricIndex(X:Mas; K:integer):integer;
Var i:integer;
begin
  Result:=1;
  for i:=1 to K do
    if X[i]<0 then
    begin
      Result:=i;
      break;
    end;
end;
 
Var A:Mas;
    r,i,K,L,S:INTEGER;
begin
  repeat
    Write('Введите длину массива ');
    readLn(K);
  until (K > 0) and(K < N);
  randomize;
 
  repeat
    for i:=1 to K do
      A[i]:=random(100)-50;
  until IsOtric(A,K);
  Writeln('Массив:');
  for i:=1 to K do
  if i <> K then
    Write(A[i],', ')  else
    Write(A[i]:3);
  Writeln;
  S:=0;
  L:=GetFirstOtricIndex(A,K);
  for i:=L to K do
     inc(S,A[i]);
  WriteLn('Номер первого отрицательного элемента: ',L);
  WriteLn('Сумма после первого отрицательного элемента: ',S);
 readLn;
end.