помогите пожалуйста с 5 и 6 номерами. (нужно написать программы по схеме)

Огромное спасибо)

№5var  st1, st2: string;  T: integer;begin  write('Строка, в которой будет произведен поиск: ');  readln(st1);  write('Что искать: ');  readln(st2);  T := pos(st2, st1);  writeln('"', st2, '" находится на позиции ', T);end.№6var  st: string;  K, i: integer;begin  write('Строка: ');  readln(st);  K := 0;  for i := 1 to length(st) do  begin    if st[i] = ',' then      K := K + 1;  end;  writeln('Кол-во запятых: ', K);end.