памагите в написание программ для экзаменя очень срочно

[wewe]

Памагите завтра экзамен а я не пайму как написать программу чтоб пахала напишите полностью её ,буду благодарен.
дан символ C и строки S, S0. перед каждым вхождением символа C в строку S вставить строку S0.
program 121;
var
s:integer;
begin
iCurrSymbNum := Length (S);
while (iCurrSymbNum > 0) do
begin
if (S [iCurrSymbNum] = C) then
Insert (S0, S, iCurrSymbNum);
Dec (iCurrSymbNum);
end;
а памагите написать программу
нарисовать элипс через граф таже сетуация я проста в програмирование дуб дубам а у нас последний симестор она.

[wewe]

плиз погибаю памагите нужно до завтра всё это