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

№5
var
  st1, st2: string;
  T: integer;
begin
  write(Строка, в которой будет произведен поиск: );
  readln(st1);
  write(Что искать: );
  readln(st2);
  T := pos(st2, st1);
  writeln(", st2, " находится на позиции , T);
end.

№6
var
  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.