program shit;
var x:array[1..100] of string; i,n:integer;
begin
for i:=1 to n do read(x[i]);

а дальше лен =(