Определить, сколько букв в самой короткой фамилии списка — Pascal(Паскаль)

program z6;

type
  t = array [1 .. 8] of string[20];

var
  s: t;
  c, i, min: integer;

begin
  for i := 1 to 8 do
  begin
    writeln('Введите слово');
    readln(s[i]);
    c := length(s[i]);
    if min = 0 then
      min := c
    else if c < min then
      min := c;
  end;
  writeln(min);
  readln;

end.