Дано натуральное число n, символы S1,….Sn. Известно что среди S1….Sn. Есть хотя-бы одна запятая. Определить а) S(i) 1 запятая — Pascal(Паскаль)

const
  n = 10;

var
  i, fst, lst: integer;
  s: string[n];
  a: array [1 .. n] of char;

begin
  s := '';
  for i := 1 to n do
  begin
    readln(a[i]);
    s := s + a[i];
  end;
  writeln(s);
  writeln('-------');
  fst := pos(',', s);
  writeln(fst);
  lst := fst;
  for i := fst + 1 to length(s) do
    if s[i] = ',' then
    begin
      lst := i;
      writeln(i);
    end;

  if lst > fst then
    writeln('---Yes----')
  else
    writeln('---No----');

end.