Помогите, пожалуйста, написать 2 программки на Pascal ABC

[Оле4ка)]

Помогите, пожалуйста, написать 2 программки на Pascal ABC

1) Дано целое число N (>0)исимвол C. Вывести строку длины N,
котораясостоитизсимволов C
2) Даны строки S и S0 . Найти количество вхождений строки S0 в строку S

 

[Vladimir_S]

1) Дано целое число N (>0)исимвол C. Вывести строку длины N,
котораясостоитизсимволов C
2) Даны строки S и S0 . Найти количество вхождений строки S0 в строку S

Про АВС ничего не знаю, никогда не ставил, а вообще, например, так:

1.
VAR
 N,i:INTEGER;
BEGIN
 Write('N= ');
 ReadLn(N);
 For i:=1 to N do
  Write('C');
 WriteLn;
 ReadLn;
END.

2. 
VAR
 S,S0:STRING;
 i,j,N:INTEGER;
 B:BOOLEAN;
BEGIN
 WriteLn('Enter the string S:');
 ReadLn(S);
 WriteLn('Enter the string S0:');
 ReadLn(S0);
 N:=0;
 For i:=1 to (Length(S)-Length(S0)) do
  begin
   B:=TRUE;
   For j:=1 to Length(S0) do
     If S[i+j-1]<>S0[j] then B:=FALSE;
   If B then INC(N);
  end;
 WriteLn('The number of entries is ',N);
 ReadLn;
END.